求一个vb代码，关于判断一个整数的奇偶性

显示全部楼层 · 2010-12-23 10:51:40

在文本框中输入一个整数，判断该数的奇偶性，将结果显示在标签中。。。求解
需要完整的代码

千问 · 2010-12-23 10:51:40

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

千问 · 2010-12-23 10:51:40

输入内容，判断一个整数的奇偶性，程序中有1个错误。 Dim x As Integer,Private Sub Command1_Click() Picture1.Cls For i = 1 To 10 aver =