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