Question

编写窗体的单击事件,利用InputBox函数输入1个数,判断该数的奇偶性

Answer 1

Dim a As Integer
a = InputBox("输入一个数")
If a Mod 2 = 0 Then
MsgBox ("偶数")
Else
MsgBox ("奇数")
End If

Answer 2

Private Sub Form_Click()
MsgBox IIf(Val(InputBox("请输入一个数")) Mod 2, "奇数", "偶数")
End Sub

Answer 3

你好！
Private
Sub
Form_Click()
MsgBox
IIf(Val(InputBox("请输入一个数"))
Mod
2,
"奇数",
"偶数")
End
Sub
如果对你有帮助，望采纳。

Answer 4

这帮孩子，一定是考试时，发的百度求助。这么简答的题。晕。平时没听课吧