Ответы
Ответ дал:
0
Sub car()
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub
Dim s1, s2 As Double
s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад