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