Question

ввести с клавиатуры 2 разных целых числа. Найти меньшее из них.
Результат вывести на экран.
VBA

Answer 1

Sub aaa()
    a = CDbl(InputBox("первое число"))
    b = CDbl(InputBox("второе число"))
    MsgBox "минимум двух чисел " + CStr(IIf(a > b, b, a))
End Sub