【填空题】已知变量 CharS 中存放一个字符,以下程序段用于判断该字符是数字、字母还是其他字符,并输出结果。补充下列程序代码。 Select Case CharS Case ______(1) _______ Print “ 这是数字 ” Case ______(2) _______ Print “ 这是字母 ” Case ______(3) _______ Print “ 这是其他字符 ” End Select
举一反三
- 判断一个字符是字母字符、数字字符还是其他字符,并做相应的显示。字母字符显示字符串"字母";数字字符显示字符串"数字";其他字符显示字符串"其他"。 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
- 下列程序段的执行结果为a=1b=0Select Case a Case 1 Select Case b Case 0 Print"**0**" Case 1 Print"**1**" End SelectCase 2 Print"**2**"End Select A．* * 0 * * B．* * 1 * * C．* * 2 * * D．0
- 下列程序段的运行结果为（ ）。 Dim x x = Int(Rnd) + 5 Select Case x Case 5 Print "优秀" Case 4 Print "良好" Case 3 Print "及格" Case Else Print "不及格" End Select
- 编写如下程序: Private Sub Command1_Click； Dim m As Integer, n As Integer m = 2 : n = 1 Select Case m Case 1 Select Case n Case 1 Print "AAA" Case 2 Print "BBB" End Select Case 2 Print "CCC" End Select End Sub 程序运行后,单击命令按钮Command1,输出结果为 A: BBB B: CCC C: AAA D: 1
- 假定x的值为5，则在执行以下语句时，其输出结果为"Result"的正确表示Select Case语句是（ ） A: Select Case x Case 1 To 10 Print "Result" End Select B: Select Case x Case Is＞5,Is＜5 Print "Result" End Select C: Select Case x Case Is＞5,1,3 To 4 Print "Result" End Select D: Select Case x Case 1,3,Is＞5 Print "Result" End Select