Question

Написать программу в VBA, сравнивающую два числа, вводимые с клавиатуры.

Answer 1

Sub car()
    Dim s1, s2 As Double
    s1 = CDbl(InputBox("Введи первое число", "Ввод данных", 88))
    s2 = CDbl(InputBox("Введи второе число", "Ввод данных", 46))
    If s1 > s2 Then MsgBox (CStr(s1) + ">" + CStr(s2)) Else MsgBox (CStr(s1) + "<" + CStr(s2))
End Sub

Answer 2

Я могу помочь вам написать программу на VBA, которая сравнивает два числа, введенные с клавиатуры. Вот пример такой программы:

Sub CompareNumbers()
    'Объявляем две переменные для хранения чисел
    Dim num1 As Double
    Dim num2 As Double
    
    'Вводим первое число с клавиатуры и присваиваем его переменной num1
    num1 = InputBox("Введите первое число")
    
    'Вводим второе число с клавиатуры и присваиваем его переменной num2
    num2 = InputBox("Введите второе число")
    
    'Сравниваем два числа и выводим результат на экран
    If num1 > num2 Then
        MsgBox "Первое число больше второго"
    ElseIf num1 < num2 Then
        MsgBox "Второе число больше первого"
    Else
        MsgBox "Числа равны"
    End If
End Sub

Для того, чтобы запустить эту программу, вам нужно открыть редактор VBA в Excel, создать новый модуль и вставить этот код в него. Затем вы можете нажать кнопку F5 или выбрать команду "Запустить" в меню "Отладка". Вы увидите два диалоговых окна, в которых вам нужно будет ввести два числа с клавиатуры. После этого вы увидите сообщение, которое покажет, какое число больше, меньше или равно другому.

Если вы хотите узнать больше о программировании на VBA, вы можете посмотреть эти ссылки: - [Оператор Function (VBA)](https://learn.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/function-statement) - [Справочник по Visual Basic для приложений (VBA) в Office](https://learn.microsoft.com/ru-RU/office/vba/api/overview/)

Надеюсь, это было полезно для вас.