作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 08:17:54
vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中
vb2005
假设文本框为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