первое число, если оно больше второго, и оба, если это не так. Задача vba
```VBA
Sub CompareNumbers()
' Дано: два числа
Dim num1 As Double
Dim num2 As Double
' Установить значения чисел
num1 = InputBox ("Введите первое число")
num2 = InputBox ("Введите второе число")
' Решение: Сравниваем числа
If num1 > num2 Then
' Выводим первое число, если оно больше второго
MsgBox num1
Else
' Выводим оба числа, если первое не больше второго
MsgBox num1 & " и " & num2
End If
End Sub
```