判断奇偶：
dim i as integer
dim j,k as double
j=i/2
k=math.floor(i/2)
if j=k then
messagebos.show("偶数")
else
messagebox.show("奇数")
end if
判断mod 2是否为零
加好友 
发短信
Post By：2011/8/22 17:44:00 [显示全部帖子]
