Sub SortNumbers() Dim num1 As Integer Dim num2 As Integer
num1 = InputBox("Введите первое число:") num2 = InputBox("Введите второе число:") If num1 <= num2 Then MsgBox "Числа в порядке возрастания: " & num1 & ", " & num2 Else MsgBox "Числа в порядке возрастания: " & num2 & ", " & num1 End If
Sub SortNumbers()
num1 = InputBox("Введите первое число:")Dim num1 As Integer
Dim num2 As Integer
num2 = InputBox("Введите второе число:")
If num1 <= num2 Then
MsgBox "Числа в порядке возрастания: " & num1 & ", " & num2
Else
MsgBox "Числа в порядке возрастания: " & num2 & ", " & num1
End If
End Sub