VB6.0检测Text1输入的数字前3位

Question

自动检测Text1输入的文本，只能输入数字，输入其他就提示错误，再检测位数，不是20位还是提示，再检测前3位，不是159和753都提示错误
求源码

Answer 1

Private Sub Command1_Click()
If Len(Text1) <> 20 Then
MsgBox "只能输入20位数字"
ElseIf Left(Text1, 3) <> 159 And Left(Text1, 3) <> 753 Then
MsgBox "开头数字必须为159或753，请重新输入"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then
MsgBox "错误,只能输入0-9的阿拉伯数字"
KeyAscii = 0
End If
End Sub

Answer 2

检测是否为数字可以这个函数IsNumeric，具体用法请看百度百科http://baike.baidu.com/view/1229896.htm

检测位数可以用len这个函数，具体用法请看百度百科http://baike.baidu.com/view/926421.htm或者http://baike.baidu.com/view/3244004.htm

截取字符串前3位可以用left函数，具体用法请看百度百科http://baike.baidu.com/view/3245619.htm

判断用 if then 具体用法问度娘