Question

VB程序编写，在文本框text1里任意输入一个整数，按下“确定”按钮（command1），后用标签（Lable2）显

示该整数的奇偶性。

Answer 1

private sub command1_click()
dim i as integer
dim aa as double
i=val(me.text1)
aa=fix/2-fix(i/2)
me.lable2.caption="奇数"
if abs(aa)<0.01 then me.lable2.caption="偶数"
end sub