VB：识别阿拉伯数字和英文字母

来源：百度知道 编辑：UC知道 时间：2024/05/30 08:35:56
a＝inputbox("a=","输入")

如何编写语句，以使在输入任意一个阿拉伯数字或英文字母后，程序能够辨别输入的是数字或字母。并且，用print语句，如果输入的是字母就输出“你所输入的是字母”，数字就输出“你所输入的是数字”。

每一个字符都有ASCII码的，数字和字母的ASCII码是不同的，你可以根据这个加以判断。

If a Like "[a-z]" or a Like "[A-Z]" then debug.print "输入的是字母！"
If a Like "#" then debug.print "输入的是数字！"

以上代表单个字符，也就是a="a"匹配，a="aa"不匹配；a="1"匹配，a="11"不匹配；a="a1"不匹配。

Dim a$
a = InputBox("a=", "输入")
Select Case a
Case "a" To "z"
Print "你所输入的是小写字母"
Case "A" To "Z"
Print "你所输入的是大写字母"
Case 0 To 9
Print "你所输入的是数字"
Case Else
Print "不是字母也不是数字！"
End Select