Question

VB6.0中如何检查文本框中输入的是6位数字?

如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中

Answer 1

在失去焦点事件时用isnumeric判断是否是数字。用长度内容判断是否为六位数。不符合就清空。并获取焦点。

Answer 2

Private Sub Text1_LostFocus()
If Len(Text1.Text) <> 6 Or Not IsNumeric(Text1.Text) Then
Text1.SetFocus
Text1.Text = ""
End If
End Sub

追问

要求程序能对输入的“性别”和“邮政编码”、“电话号码”进行校验（性别只允许输入“男”或“女”，邮政编码必须是6位数字，电话号码必须是8位数字）。如果输入的数据不符号要求，则清空相应的文本框，并将插入点置于该框中。所有的校验工作可以在单击“退出”按钮后进行，此时，程序检查所有文本框，如有空白或内容错误，要求继续输入，否则结束程序。 能帮我解决这道题吗 ？

追答

那你先在追问中写清楚各种校验的格式。

追问

我QQ是770777566 加我好友我有问题请教你 好吗 谢谢！