vb编写判断奇，偶数的函数过程。从文本框输入一个正整数，调用函数过程判断奇偶函数，判断结果显示在标签中
vb编写判断奇，偶数的函数过程。从文本框输入一个正整数，调用函数过程判断奇偶函数，判断结果显示在标签中
日期：2012-05-09 22:29:13 人气：1
假设文本框为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