我的试卷 测试得分： 88.0 分
1. 单选题： （4.0分）
有如下程序：
Private Sub Command1_Click() x = InputBox(\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 -5 -4 -5 -3 -5 -5
B.
C.
D.
解答： 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 -1 1
C.
D.
解答： B
参考答案： B
3. 单选题： （2.0分）
关于语句If x=1 Then y=1，下列说法正确的是_______。
x=1和y=1均为赋值语句 x=1和y=1均为关系表达式 x=1为关系表达式，y=1为赋值语句 x=1为赋值语句，y=1为关系表达式
A.
B.
C.
D.
解答： C
参考答案： C
4. 单选题： （2.0分）
Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_______。
Case 20>Is
Case x<=8 ，10 to 25 Case Is>9 And Is<25 Case Is>x
A.
B.
C.
D.
解答： D
参考答案： D
5. 单选题： （4.0分）
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
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 20 30 40
B.
C.
D.
解答： A
参考答案： A
6. 单选题： （4.0分）
运行下面程序，如果输入85，则输出结果是_____。
Dim a As Integer, i As Integer a = InputBox(\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 \
A.
i=1 i = 2 i = 3 i = 4
B.
C.
D.
解答： 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 10 1 溢出 11 10
B.
C.
D.
解答： C
参考答案： C
8. 单选题： （4.0分）
执行以下语句后，a的值为_____。
Dim a As Integer a = 1
Do a = a + 2
Loop Until a = 100
A.
99 100 溢出 101
B.
C.
D.
解答： C
参考答案： C
9. 单选题： （4.0分）
执行以下语句后，a的值为_____。
Dim a As Integer a = 1 Do a = a + 2
Loop While a = 100
A.
1 3 溢出 101
B.
C.
D.
解答： B
参考答案： B
10. 单选题： （4.0分）
在下面的程序段中，循环体将执行______次。
For v=20 To 10 Step -2 print v