8、下面程序段，显示的结果是 。 Dim x% x = Int（Rnd) + 5 Select Case x Case 5 MsgBox（"优秀") Case 4 MsgBox（"良好") Case 3 MsgBox（"通过") Case Else MsgBox（"不通过") End SelectA．优秀B．良好C．通过D．不通过E．不确定，随机
8、下面程序段，显示的结果是 。 Dim x% x = Int（Rnd) + 5 Select Case x Case 5 MsgBox（"优秀") Case 4 MsgBox（"良好") Case 3 MsgBox（"通过") Case Else MsgBox（"不通过") End Select
A．优秀
B．良好
C．通过
D．不通过
E．不确定，随机
参考答案和解析
1
相关考题：
下列程和序段的执行结果为x=Int（Rnd（） + 9）Select Case xCase 10Print "excellent"Case 9Print "good"Case 8Print "pass"Case ElsePrint "fail"End Select（ ）。A．excellentB．goodC．passD．fail
下面程序段执行结果为x=Int(Rnd() +4)Select Case xCase 5Print "excellent"Case 4Print "good"Case 3Print "pass"Case ElsePrint "fail"End SelectA．excellentB．goodC．passD．fall
在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() x=Input Box("Input") Select Case x Case 1,3 Print"分支1" Case Is＞4 Print"分支2" Case Else Print"Else分支" End Select End Sub 程序运行后，如果在输入对话A．分支1B．分支2C．Else分支D．程序出错
下列程序段的执行结果是【 】。x=Int(Rnd+4)Select Case XCase 5Print"优秀"Case 4Print"良好"Case 3Print"合格"Case ElsePrint"不合格"End Select
设有如下窗体单击事件过程： Private Sub Form Click( ) a＝1 For i＝1 To 3 Select Case i Case 1,3 a＝a+1 Case 2,4 a＝a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是__A．3B． 4C． 5D． 6
下列程序段的执行结果是( )。 a = 1: b = 0 Select Case a Case 1 Select Case b Case 0 Print "**0**" Case 1 Print "**1**" End Select Case 2 Print "**2**" End Select A. **0**B. **1**C. **2**D. 0
下列程和序段的执行结果为 x=Int(Rnd()+9) Select Case X Case 10 Print "excellent" Case 9 Print "good" Case 8 Print "pass" Case Else Print "fail" End SelectA．excellentB．goodC．passD．fail
设有如下窗体单击事件过程： Private Sub Form_Click() a=1 For i=1 To 3 Select Case i Case 1 a=a+1 Case 2, 4 a=a+2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出结果是( )。A．3B．4C．5D．6
有如下程序，运行时从键盘输入3，输出结果是 ______。 Private Sub Command1_Click() a=InputBox("请输入一个数字：") Select Case a Case Is＞2 b=a+1 Case Is＞3 b=a+2 Case Is＞4 b=a＋3 Case Is＞5 b＝a＋4 End Select Print a ＋ b End SubA．8B．7C．6D．9
假设X的值是5，则执行以下语句时，可得到的输出结果是ABCDEF的Select Case语句是 ( )A．Select Case X Case 10 To 1 Print“ABCDEF” End SelectB．Select Case X Case Is＞15，Is＜5 Print"ABCDEF" End SelectC．Selecl Case K Case Is＞5，1，3，To 10 Print"ABCDEF" End SelectD．Select Case X Case 1，3，Is＞5 Print"ABCDEF" End Select
已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是( )A．If x＞=60 Then Print"及格" Else If x＞=70 Then Print"中" Else If x＞=80 Then Print"良" Else If x＞=90 Then Print"优" Else Print"不及格" End IfB．If x＜90 Then Print"良" Else If x＜80 Then Print"中" Else If x＜70 Then Print"及格" Else If x＜60 Then Print"不及格" Else Print"优" End IfC．If x＞=90 then Print"优" Else If x＞=80 Then Print"良" Else If x＞=70 Then Print"中" Else If x＞=60 Then Print"及格" Else Print"不及格" End If End SelectD．Select Case x Case x＞=90 Print"优" Case x＞=80 Print"良" Case x＞=70 Print"中" Case x＞=60 Print"及格" Case Else Print"不及格"
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 print"A" Case 1 Print"B" End Select Case 2 Print"C" End SelectA．AB．BC．CD．0
设有如下窗体单击事件过程： Private Sub Fom_Click． a =1 For i –To3 Select Case i Case 1,3 a =a +1 Case2,4 a =a +2 End Select Next i MsgBox a End Sub 打开窗体运行后，单击窗体，则消息框的输出的结果是 A．3 B．4 C．5 D．6
在窗体中添加一个命令按钮(其Name属性为Command1)，然后编写如下代码： Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls＜60 a＄=“F” Case 60 T069 a＄=“D” Case 70 To 79 a＄=“C” Case 80 To 89 a＄=“B” Case Else a＄=“A” End Select Print aS End Sub 程序运行后，单击命令按钮，输出结果是A．AB．BC．CD．D
下列程序 Private Sub form_Click() score=Int(Rnd * 10)+80 Select Case score Case Is＜60:a$＝"F" Case 60 To 69:a$＝"D" Case 70 To 79:a$＝"C" Case 80 To 89:a$="B" Case Else:a$＝"A" End Select Print a$ End Sub 运行时输出的结果是A．FB．DC．CD．B
下面程序段执行结果为x=Iht(Rnd()+4)Select Case x Case 5 Print"excellent" Case 4 Print"good" Case 3 Print"paSS" Case Else Print "fail"End SelectA．excellentB．goodC．passD．fail
下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case 4 Print"good" Case 3 Print "pass" Case Else Print "fail" End SelectA．excellentB．goodC．passD．fall
运行下列程序： x=Input Box("input value Of x”) Select Case x Case IsO y=y＋1 Case Is=0 y=x＋2 Case Else y=x＋3 End Select Print x；y 运行时，从键盘输入-5，输出的结果是( )。A．-7B．-9C．-8D．-10
在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下： Private Sub run11 Click（ ） Select Case num2 Case 0 Result=“0分” Case 60 T0 84 result= “通过” Case IS=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体，在文本框中输入80，单击命令按钮，输出结果是（ ）。A.合格B.通过C.优秀D.不合格
以下语句正确的是：______。A．Select Case a Case b=1 Case “B” b=2 Case Else b=3 End SelectB．Select Case a Case “A” b=1 Case “B” b=2 Case Default b=3 End SelectC．Switch a Case “A” b=1 Case “B” b=2 Case Else b=3 End SwitchD．Switch a Case “A” b=1 Case “B” b=2 Case Default b=3 End Select
下列程序段的执行结果为______。 x=Int (Rnd+4) Select Case x Case 5 Print“优秀” Case 4 Print“良好” Case 3 Print“通过” Case Else Print“没有通过” End SelectA． 优秀B．良好C．通过D．没有通过
执行以下程序段，如果在对话框中输入8，输出结果是"Hello"的是______。A．n = InputBox("请输入一个数") Select Case n Case 7 To 1 Print "Hello" End SelectB．n = InputBox("请输入一个数") Select Case n Case Is＞1, Is ＜ 6 Print "Hello" End SelectC．n = InputBox("请输入一个数") Select Case n Case Is ＞ 5, 1, 3 To 10 Print "Hello" End SelectD．n=InputBox("请输入一个数") Select Case n Case 1, 5, Is ＞ 9 Print "Hello" End Select
下面程序段执行结果为( )。 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print"fail" End SelectA．excellentB．goodC．passD．fail
运行下列程序： x=InputBox("input value of x") Select Case X Case Is＞0 y=y+1 Case Is=0 y=x+2 Case ELse y=x+3 End Select Print x;y 运行时，从键盘输入-5，输出的结果是( )。A．-7B．-9C．-8D．-10
有如下程序： x = InputBox("Input value of x") Select Case x Case Is ＞ 0 y=y+1 Case Is = 0 y=x + 2 Case Else y=x + 3 End Select Print x, y运行时，从键盘输入-5，输出的结果是( )。A．-7B．-9C．-8D．-10
当Form1_Click事件发生时，程序的输出结果是( )。 Private Sub Form_Click() Dim M As Integer，k As Integer，t As Integer M=5：k=7 Select Case M Case Is＜0 M=M+5 Case 1 To 10 t=M：M=k：k=t Case Else M=k Mod 3 End Select Print M，k，t End SubA．5 5 7B．5 7 5C．7 5 5D．7 5 7
下面程序段执行结果为 x=Int(Rnd()+3) Select Case x Case 5 Print "excellent" Case 4 Print "good" Case 3 Print"pass" Case Else Print"fail" End SelectA．excellentB．goodC．passD．fail
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print" * * 0 * *" Case 1 Print" * *.* *" End Select Case 2 Print"* *,2 * *," End SelectA．* * 0 * *B．* * 1 * *C．* * 2 * *D．0