在VB中,判断奇偶数如何弄?

很久没看书了..大概这样,你去翻翻关键字
奇:if x/2=1 then 奇=奇+1
偶:if x/2=0 then
是这个意思而已

Dim i As Integer '注意数据类型
'给i赋值的语句
If i Mod 2 = 0 Then Text1.Text = "i是偶数"
If i Mod 2 = 1 Then Text1.Text = "i是奇数"

设要判断的数为N
用 if N Mod 2=0 then
为偶数
else
为奇数
end if