Question

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

Answer 1

Sub test()
    Dim n As Long
    n = InputBox("Введите целое число")
    MsgBox IIf(n Mod 2 = 0, "Четное", "нечетное"), vbInformation
End Sub