Предмет: Информатика, автор: 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
Похожие вопросы
Предмет: Математика, автор: frankimega
Предмет: Английский язык, автор: 17881022vladpopov
Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите Помогите помогите помогите
Предмет: Биология, автор: morozova261076