1. 在 vb 程序设计中设计一个程序，窗体中有2个文本框，2个命令按钮。
按要求在窗体上添加一个标签和一个文本框以及一个命令按钮，双击命令按钮，删除所有代码，复制如下代码到程序中
private
sub
command1_click()
if
val(text1)
mod
2
=
0
then
label1
=
"偶数"
else
label1
=
"奇数"
end
if
end
sub
private
sub
text1_keypress(keyascii
as
integer)
'判字符
if
keyascii
<
48
or
keyascii
>
57
then
keyascii
=
0
'0-9字符之外屏蔽
end
sub
若满意请及时采纳，谢谢