VB6.0程序中设计一个窗体，在窗体上添加一个标签和一个文本框以及一个命令按钮，要求文本框中只能

Question

入数字，当单击命令按钮时，在标签框中显示输入的数字为奇数或者偶数。设计这个程序。？

Answer 1

按要求在窗体上添加一个标签和一个文本框以及一个命令按钮，双击命令按钮，删除所有代码，复制如下代码到程序中

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

若满意请及时采纳，谢谢