Question

用vb编程 任意输入一整数，判断其奇偶性。

Answer 1

Dim A
Do
A = InputBox("请输入一个整数")
Loop While IsNumeric(A) = False Or Val(A) <> Int(A)
If A Mod 2 = 1 Then
MsgBox A & "是奇数"
Else
MsgBox A & "是偶数"
End If

Answer 2

dim a as integer
a=val(inputbox("输入一个数"))
dim b as single
b=a/2
if b=int(b) then
msgbox "偶数"
else
msgbox "奇数"
end if

Answer 3

dim i as integer
i=text1.text
if i mod 2 =0 then
msgbox "偶数"
else
msgbox "奇数"
end if