(Компьютерное проектирование агрегатов и деталей строительных и дорожных машин)
Dim a As Long, b As Long, m As Long
If a < b Then
m = a
Else
m = b
End If
MsgBox m
End Sub
Данный код предназначен
a. для вывода на экран сообщения об успешном (неудачном) расчете
b. для определения разности двух заданных чисел
c. для вывода на экран значения наименьшего из двух чисел
d. для вывода на экран значения наибольшего из двух чисел
e. для определения длины диапазона значений между двумя заданными числами