Question

РЕШИТЕ ПОЖАЛУЙСТА СРОЧНО Ввести с клавиатуры 2 разных целых числа. Найти меньшее из них. Результат вывести на экран. ЯЗЫК VBA

Answer 1

n = int(input("n = "))
b = int(input("b = "))
if n < b :
print("Число ",b," больше числа ",n)
else:
print("Число ",n," больше числа ",b)

Answer 2

Конечно! Вот пример кода на VBA, который позволяет пользователю ввести два разных целых числа, находит меньшее из них и выводит результат на экран:

vbaCopy code
Sub FindSmallerNumber()
    Dim num1 As Integer
    Dim num2 As Integer
    Dim smallerNum As Integer
    
    ' Ввод первого числа
    num1 = InputBox("Введите первое целое число:", "Ввод числа 1")
    
    ' Ввод второго числа
    num2 = InputBox("Введите второе целое число:", "Ввод числа 2")
    
    ' Проверка на равенство чисел
    If num1 = num2 Then
        MsgBox "Числа равны.", vbInformation, "Результат"
        Exit Sub
    End If
    
    ' Нахождение меньшего числа
    If num1 < num2 Then
        smallerNum = num1
    Else
        smallerNum = num2
    End If
    
    ' Вывод результата
    MsgBox "Меньшее число: " & smallerNum, vbInformation, "Результат"
End Sub

Этот код позволяет пользователю ввести два целых числа, а затем определяет меньшее из них и выводит результат в диалоговом окне сообщения (MessageBox). Если числа равны, программа также сообщает об этом.