网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
下列程序的输入值为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 Select End Sub
A．A
B．B
C．C
D．D
参考答案和解析
Error: the side length should be positive
更多 “下列程序的输入值为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 Select End SubA．AB．BC．CD．D” 相关考题
考题
（ 9 ）在窗体文本框 Text l 中输入 “ 456AbC ” 后，立即窗口上输出的结果是 【 9 】 。Private Sub Textl_KeyPress(KeyAscii As Integer)Select Case DeyAsciiCase 97 To 122Debug.Print Ucase(Chr(KeyAscii));Case 65 To 90Debug.Print Lcase(Chr(KeyAscii));Case 48 To 57Debug.Print Chr(KeyAscii);Case ElseKeyAscii = 0End SelectEnd Sub
考题
在窗体上画一个名称为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
考题
下列程序段的执行结果是( )。 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
考题
在窗体文本框Text1中输入“456ABC”后，立即窗口上输出的结果是【 】。Private SuB Text1_keyPress(keyAscii As Integer)Select Case keyAsciiCase 97 To 122DeBug.Print Ucase (Chr (keyAscii));Case 65 To 90DeBug.Print Lcase (Chr (keyAscii));Case 48 To 57DeBug.Print chr (keyAscii);Case ElsekeyAscii=0End SelectEnd SuB
考题
下列程和序段的执行结果为 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
考题
下列程序段的执行结果为 a=2 b=0 Select Case a Case 1 Select Case b Case 0 Print " * * 0 * *" Case 1 Print" * * 1 * *" End selec Case 2 Print " * * 2 * *" End SelectA．* * 0 * *B．* * 1 * *C．* * 2 * *D．0
考题
有如下程序，运行时从键盘输入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
考题
设有如下程序： 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 Print A End Sub 程序运行后，单击窗体，则在窗体上显示的内容是A．6B．5C．4D．3
考题
单击命令按钮，并在对话框内输入6，下列程序段的执行结果为______。 Private Sub Command1_Click() Dim n As Integer n=InputBox ("请输入日期") Select Case n Case Is ＜= 0 n=InputBox("错误!请重新输入日期!") Case Is＞7 n=InputBox("错误!请重新输入日期!") Case 1 To 3 Print "江苏" Case 4 To 5 Print "浙江" Case 6 To 7 Print "双休日" End Select End SubA．错误!请重新输入日期!B．江苏C．浙江D．双休日
考题
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程： Private Sub Command1 Click（ ） X!=Val(Text1．Text) Select Casc x Case Is-10，Is=20 Print"输入错误" Case Is0 Print 20-x Case Is10 Print 20 Case Is=20 Print x+10 End Seleet End Sub 程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。A.5B.20C.25D.输入错误
考题
下列程序段的执行结果为 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
考题
在窗体中添加一个命令按钮(其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
考题
下列程序段的执行结果为 m=1 n=1 Select Case m Case 1 Select Case n Case 0 Print" * * 0 * *" Case 1 Print" * *1* *" End Select Case 2 Print" * * 2 * *" End SelectA．**0**B．**1**C．**2**D．0
考题
下列程序 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
考题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) x=InputBox(“Input”) Select Case x Case 1，3 Print“分支1” Case Is4 Print“分支2” Case Else Print“Else分支” End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是A．分支1B．分支2C．Else分支D．程序出错
考题
下列程序段的执行结果为______。 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
考题
下列程序段的执行结果为______。 Private Sub Command1_Click() a=1：b=1 Select Case a Case 1 Select Case b Case 0 Print "你好!" Case 1 Print "Hello!" End Select Case 2 Print"谢谢使用!" End Select End SubA．你好!B．谢谢使用!C．Hello!D．你好!谢谢使用!
考题
下列程序段的执行结果为a=1b=0Select Case a Case 1 Select Case b Case 0 Print"**0**" Case 1 Print"**1**" End SelectCase 2 Print"**2**"End SelectA．* * 0 * *B．* * 1 * *C．* * 2 * *D．0
考题
下面程序段执行结果为 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
热门标签
最新试卷
