Ответ:
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
Объяснение:
Надеюсь подойдет давно не писал на нем
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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
Объяснение:
Надеюсь подойдет давно не писал на нем