Найти сумму, разность, произведение и частное их модулей - VB

Формулировка задачи:

Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

Код к задаче: «Найти сумму, разность, произведение и частное их модулей - VB»

textual
Option Explicit
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer, D As Integer, E As Integer, F As Single
A = InputBox("A= ")
B = InputBox("B= ")
C = A + B
D = A - B
E = A * B
F = Abs(A) / Abs(B)
MsgBox C
MsgBox D
MsgBox E
MsgBox F
Debug.Print C
Debug.Print D
Debug.Print E
Debug.Print F
End Sub
 
'A = 5
'B = -8
'C = -3
'D = 13
'E = -40
'F = 0.625

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы