Question

编写程序,任意输入一个整数,判断它是奇数还是偶数

Answer 1

Sub test()

On Error GoTo 10

n = InputBox("输入一个整数")

MsgBox IIf(n Mod 2 = 0, "你输入的是个偶数", "你输入的是个奇数"): Exit Sub

10: MsgBox "输入错误!"

End Su