Question

用inputbox函数获得数据x并判断x是奇数还是偶数,用msgbox输出

我是新手，希望有高手给说一下，详细一点。

Answer 1

dim x as integer
x=inputbox("输入一个数。")
if x mod 2 = 0 then
msgbox("你输入的数 " & " " & x & " 是个偶数。")
else
msgbox("你输入的数 " & " " & x & " 是个奇数。")
endif

Answer 2

Dim x As Integer
Dim str As String
x = InputBox("输入一个数")
str = IIf((x Mod 2 = 0), "偶数", "奇数")
MsgBox "你输入的是" & str, , "提示"

Answer 3

要不试试这一句话。
msgbox iif(val(inputbox("请输入一个数"))mod 2=0,"奇数","偶数")

Answer 4

上面两个人说的很清楚,看了vb 的人都会.看不懂你就要好好看书了.