【测试】分支循环测试作业(VB第五章测试题).docVIP

我的试卷 测试得分：?88.0?分 1. 单选题： （4.0分） Private Sub Command1_Click() x = InputBox(input value) Select Case x Case Is 0 y = x + 1 Case Is = 0 y = x + 2 Case Else y = x + 3 End Select Print x; y End Sub 假设运行时从键盘上输入-5，输出结果是_______。 A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 解答： A??? 参考答案： A??? 2. 单选题： （4.0分） X = 2 Y = 1 If X * Y 1 Then Y = Y - 1 Else Y = -1 Print Y - X 0 A. True B. False C. -1 D. 1 解答： B??? 参考答案： B??? 3. 单选题： （2.0分） A. x=1和y=1均为赋值语句 B. x=1和y=1均为关系表达式 C. x=1为关系表达式，y=1为赋值语句 D. x=1为赋值语句，y=1为关系表达式 解答： C??? 参考答案： C??? 4. 单选题： （2.0分） A. Case 20Is B. Case x=8 ，10 to 25 C. Case Is9 And Is25 D. Case Isx 解答： D??? 参考答案： D??? 5. 单选题： （4.0分） Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 20 X = 10 Case 2, 4, 6 X = 20 Case Is 10 X = 30 Case 10 X = 40 End Select Text2.Text = X End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是____ A. 10 B. 20 C. 30 D. 40 解答： A??? 参考答案： A??? 6. 单选题： （4.0分） Dim a As Integer, i As Integer a = InputBox(input a:) If a 60 Then i = 1 If a 70 Then i = 2 If a 80 Then i = 3 If a 90 Then i = 4 Print i=; i A. i=1 B. i = 2 C. i = 3 D. i = 4 解答： C??? 参考答案： C??? 7. 单选题： （4.0分） Dim s As Integer, i As Integer i = 1: s = 1 Do i = i + s Loop Until s 10 Print i, s A. 11 1 B. 10 1 C. 溢出 D. 11 10 解答： C??? 参考答案： C??? 8. 单选题： （4.0分） Dim a As Integer a = 1 Do a = a + 2 Loop Until a = 100 A. 99 B. 100 C. 溢出 D. 101 解答： C??? 参考答案： C??? 9. 单选题： （4.0分） Dim a As Integer a = 1 Do a = a + 2 Loop While a = 100 A. 1 B. 3 C. 溢出 D. 101 解答： B??? 参考答案： B??? 10. 单选题： （4.0分） ______次。 For v=20 To 10 Step -2 print v Next v A. 5 B. 6 C. 10 D. 0 解答： B??? 参考答案： B??? 11. 单选题： （4.0分） command1后屏幕显示是_________。