VB程序中,怎样判断INPUTBOX的值是数字、还是字母、还是汉字、还是混合的?
来源:学生作业帮助网 编辑:六六作业网 时间:2024/10/01 09:16:17
VB程序中,怎样判断INPUTBOX的值是数字、还是字母、还是汉字、还是混合的?
VB程序中,怎样判断INPUTBOX的值是数字、还是字母、还是汉字、还是混合的?
VB程序中,怎样判断INPUTBOX的值是数字、还是字母、还是汉字、还是混合的?
Private Sub Command1_Click()
Dim s As String, i As Integer, k As String
Dim sz As Integer, zm As Integer, fh As Integer, hz As Integer
s = InputBox("请随便输入点啥")
For i = 1 To Len(s)
Select Case Asc(Mid(s, i, 1))
Case 48 To 57
sz = 1
Case 65 To 90, 97 To 122
zm = 2
Case Is < 0
hz = 4
Case Else
fh = 8
End Select
Next
Select Case sz + zm + hz + fh
Case 1
k = "纯数字"
Case 2
k = "纯字母(不分大小写)"
Case 3
k = "数字和字母的组合"
Case 4
k = "纯汉字(含全角符号)"
Case 5
k = "汉字和数字的组合"
Case 6
k = "汉字和字母的组合"
Case 7
k = "汉字、数字、字母的组合"
Case 8
k = "纯符号(半角)"
Case 9
k = "符号和数字的组合"
Case 10
k = "符号和字母的组合"
Case 11
k = "符号、数字、字母的组合"
Case 12
k = "符号和汉字的组合"
Case 13
k = "符号、数字、汉字的组合"
Case 14
k = "符号、字母、汉字的组合"
Case 15
k = "符号、数字、字母、汉字的组合"
Case Else
k = "其他"
End Select
MsgBox "你输入的是 " & k
End Sub