假设文本框为TEXT1,标签为LABEL1,函数代码如下：
public sub testnum()
dim x as long
x=cint(text1.text)
if x mod 2 = 1 then
label1.caption="奇数"
else
label1.caption="偶数"
end if
end sub