Найти сумму, разность, произведение и частное их модулей - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д