VB设计程序输入一个正整数，判断其奇偶性并输出判断结果

n=val(inputbox("输入:"))
if n mod 2=0 then
msgbox"是偶数"
else
msgbox"是奇数"
endif

function isOdd(byval num)
if num mod 2 = 1 then
isOdd = true
end if
end function

功课最好自己做