Dim RR = InputBox("请输入:")If R Like "[A-Z]" ThenPrint "大写!"ElseIf R Like "[a-z]" ThenPrint "小写!"ElseIf R Like "[0-9]" ThenPrint "数字!"ElsePrint "其它!"End If
看看先