VB6:: 输入一个字符，自动判断该字符是字母字符、数字字符还是其他字符
（提示：判断输入字符的ASC码值asc（input）在“a”~”z”、“A”~”Z”、“0”~”9”之间）...
（提示：判断输入字符的 ASC 码值 asc（input）在“a”~”z”、 “A”~”Z”、 “0”~”9” 之间）
展开
2个回答
展开全部
Do
x = InputBox("请输入一个字符")
Loop Until Len(x) = 1
Select Case Asc(LCase(x))
Case 97 To 122
MsgBox "字母字符"
Case 48 To 57
MsgBox "数字字符"
Case Else
MsgBox "其他字符"
End Select
x = InputBox("请输入一个字符")
Loop Until Len(x) = 1
Select Case Asc(LCase(x))
Case 97 To 122
MsgBox "字母字符"
Case 48 To 57
MsgBox "数字字符"
Case Else
MsgBox "其他字符"
End Select
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
