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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку