判断一个字符是字母字符、数字字符还是其他字符,并做相应的显示。字母字符显示字符串"字母";数字字符显示字符串"数字";其他字符显示字符串"其他"。
Private Sub Form_Click()
Dim n As String
n = InputBox("请输入一个字符")
Select Case n
Case "a" To "z", "A" To "Z"
Print "字母"
Case 【1】
Print "数字"
Case Else
Print "其他"
End Select
End Sub
Private Sub Form_Click()
Dim n As String
n = InputBox("请输入一个字符")
Select Case n
Case "a" To "z", "A" To "Z"
Print "字母"
Case 【1】
Print "数字"
Case Else
Print "其他"
End Select
End Sub
举一反三
- 【填空题】已知变量 CharS 中存放一个字符,以下程序段用于判断该字符是数字、字母还是其他字符,并输出结果。补充下列程序代码。 Select Case CharS Case ______(1) _______ Print “ 这是数字 ” Case ______(2) _______ Print “ 这是字母 ” Case ______(3) _______ Print “ 这是其他字符 ” End Select
- 输入一个字符,判断该字符是数字、字母、空格还是其他字符。
- 输入一个字符，判断其是字母、数字还是其他字符
- 从键盘输入一个字符，赋值给变量ch，判断它是英文字母、数字还是其他字符。 ch=input("请输入一个字符：") if 1 : print(ch,"是英文字母") elif 2 : print(ch,"是数字") else: print(ch,"是其他字符")
- 从键盘输入一串字符，可以是数字、字母和其他符号，经过统计，输出这串字符中数字、字母和其他字符的个数是多少。