vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中

假设文本框为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 su