7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
pcwak 2003-03-22
- 打赏
- 举报
For s = 1 To Len(text1.text)
If Mid(text1.Text, s, 1) < 0 Or Mid(txtip(i).Text, s, 1) > 1 Then
MsgBox "您输入的不正确，请重新输入"
Exit Sub
End If
Next s
If Mid(text1.Text, s, 1) < 0 Or Mid(txtip(i).Text, s, 1) > 1 Then
MsgBox "您输入的不正确，请重新输入"
Exit Sub
End If
Next s
northwolves 2003-03-22
- 打赏
- 举报
isnumeric
isdate
instr("0123456789ABCDEF",X)>0
.....
isdate
instr("0123456789ABCDEF",X)>0
.....
