Даны два действительных числа a и b Получить их сумму, разность и произведение. Сделать в программе VBA

Option Explicit

Private Sub Command1_Click()

Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Single

A = InputBox("A= ")

B = InputBox("B= ")

C = A + B

D = A - B

E = Abs(A) / Abs(B)

MsgBox C

MsgBox D

MsgBox E

Debug.Print C

Debug.Print D

Debug.Print E

End Sub

 

'A = 5

'B = -8

'C = -3

'D = 13

'E = 0.625

Объяснение:

Надеюсь подойдет давно не писал на нем