Предмет: Информатика,
автор: kurama13
Помогите С программой на языке Visual Basic For Application:
Из двух введенных чисел определить наименьшее. Известно, что числа не равны между собой.
Ответы
Автор ответа:
0
Sub aaa()
a = CDbl(InputBox("Первое число"))
b = CDbl(InputBox("Второе число"))
Select Case a - b
Case Is < 0
MsgBox "Первое число меньше"
Case Is > 0
MsgBox "Второе число меньше"
End Select
End Sub
a = CDbl(InputBox("Первое число"))
b = CDbl(InputBox("Второе число"))
Select Case a - b
Case Is < 0
MsgBox "Первое число меньше"
Case Is > 0
MsgBox "Второе число меньше"
End Select
End Sub
Похожие вопросы
Предмет: Математика,
автор: frankimega
Предмет: Английский язык,
автор: 17881022vladpopov
Предмет: Биология,
автор: dilarakairova078
Предмет: Биология,
автор: morozova261076
Предмет: Литература,
автор: Alena3975