您的位置: 首页  >  作业答案  >  其他  >  vb编写判断奇,偶数的函数过程.从文本框输入一个正整数,调用函数过程判断奇偶函数,判断结果显示在标签中

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

分类: 作业答案 • 2022-01-07 12:15:56
问题描述：

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 sub

相关推荐