求一个vb代码,关于判断一个整数的奇偶性在文本框中输入一个整数,判断该数的奇偶性,将结果显示在标签中.需要完整的代码

来源:学生作业学帮网 编辑:学帮网 时间:2024/07/01 07:06:25

求一个vb代码,关于判断一个整数的奇偶性
在文本框中输入一个整数,判断该数的奇偶性,将结果显示在标签中.
需要完整的代码

sub test()
dim i
i = textbox1.value
if(i mod 2 = 0) then
label1.caption = “偶数”
esle
label1.caption = "奇数"
end if
end sub
textbox1 label1是自己添加的文本框和标签