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

В VBA можно решить задачу через обычное сравнение двух чисел.

Код:
Sub НайтиМеньшее()
Dim a As Integer
Dim b As Integer
Dim min As Integer

a = InputBox("Введите первое целое число")
b = InputBox("Введите второе целое число")

If a < b Then
min = a
Else
min = b
End If

MsgBox "Меньшее число: " & min
End Sub

Так как по условию числа разные, отдельно проверять равенство не нужно.

0 0 Пожаловаться