下列程序段的执行结果为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

设有下面的语句：Print IIf(x＞0, 1, IIf(x＜0,-1, 0))与此语句输出结果不同的程序段是______。 A: If x＞0 Then x=1 ElseIf x＜0 Then x=-1 End If Print x B: If x＞0 Then Print 1 ElseIf x＜0 Then Print-1 Else Print 0 End If C: Select Case x Case Is＞0 Print 1 Case Is＜0 Print-1 Case Else Print 0 End Select D: If x＜＞0 Then If x＞0 Then Print 1 ElseIf x＜0 Then Print-1 Else Print 0 End If

编写如下程序: 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

中国大学MOOC: 下列程序的输入值为5，运行结果为（ ）。Private Sub Command1_Click() Dim a As Integer a = InputBox("请输入a的值") Select Case a Case 1 To 4 Print "D" Case 5 To 10 Print "C" Case 11 To 14 Print "B" Case Else Print "A" End SelectEnd Sub

假定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

假设X的值是5，则执行以下语句时，可得到的输出结果是ABCDEF的Select Case语句是 ( ) A: Select Case X Case 10 To 1 Print“ABCDEF” End Select B: Select Case X Case Is＞15，Is＜5 Print"ABCDEF" End Select C: Selecl Case K Case Is＞5，1，3，To 10 Print"ABCDEF" End Select D: Select Case X Case 1，3，Is＞5 Print"ABCDEF" End Select

中国大学MOOC: 在窗体上添加一个命令按钮Command1，然后编写如下事件过程：Private Sub Command1_Click() x = InputBox(Input) Select Case x Case 1, 3 Print 分支 1 Case Is > 4 Print 分支 2 Case Else Print Else 分支 End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。

【填空题】已知变量 CharS 中存放一个字符,以下程序段用于判断该字符是数字、字母还是其他字符,并输出结果。补充下列程序代码。 Select Case CharS Case ______(1) _______ Print “ 这是数字 ” Case ______(2) _______ Print “ 这是字母 ” Case ______(3) _______ Print “ 这是其他字符 ” End Select

在 Select Case a结构中，描述判断条件 1 ≦ a ≦ 10 的测试项应该写成()。 A: Case 1 ＜= a ＜= 10 B: Case 1 ≦ a And a ≦ 10 C: Case Is ＞= 10 or Is ＞= 1 D: Case 1 To 10

以下程序段中，执行结果与其他3个选项不同的是 A: Dim y As Integer B: y = 11 C: Select Case y D: Case 15 To 5 E: Print "Executed" F: End Select G: Dim y As Integer H: y = 10 I: Select Case y J: Case Is > 10, Is < 10 K: Print " Executed " L: End Select M: Dim y As Integer N: y = 10 O: Select Case y P: Case Is > 15, 1, 5 To 8 Q: Print " Executed " R: End Select S: Dim y As Integer T: y = 10 U: Select Case y V: Case 1, 3, Is > 6 W: Print " Executed " X: End Select