输入一个正整数求请判断是奇数还是偶数
在线等哦

dim intI as integer
if intI mod 2 = 0 then
msgbox"intI is 偶数"
else
msgbox"intI is 奇数"
end if