A:-3 3

B:5 -9

C:3 -3

D:-6 5

正确答案：-3 3

6、编写如下事件过程: Private Sub Form_Click（） score=Int(Rnd10)+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: A

B: B

C: C

D: D

正确答案：A a

7、循环结构For I%= -1 to –17 Step –2 共执行（）次。

A: 5

B: 6

C: 8

D: 9

正确答案：9

8、下列程序段的执行结果为（）。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a;b

A: 10 5

B: a b

C: 0 1

D: 10 30

正确答案：10 5

9、有如下程序,运行后输出的结果是（）。j=0:n=0 Do While n<3 j=(j+1)*(j+2) n=n+1 Loop Print j;n

A: 0 1

B: 182 3

C: 30 4

D: 3 3

正确答案：182 3

10、下列的程序段执行后,x的值为（）。x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i

A: 50

B: 55

C: 5

D: 105

正确答案：10

第四章章节测试

1、以下关于静态数组的描述正确的是（）。

A:静态数组的大小是固定的，可以有不同类型的数组元素

B:静态数组的大小是可变的，但所有数组元素的类型必须相同

C:静态数组的大小是固定的，所有数组元素的类型必须相同

D:静态数组的大小是可变的，可以有不同类型的数组元素

正确答案：静态数组的大小是固定的，可以有不同类型的数组元素

2、执行下面程序段后，输出的结果为（）。 Dim m(5) As Integer s = 0 For i = 0 To 5 m(i) = 5 Next i For j = 0 To 5 s = s + m(j) Next j Print s

A:20

B:25

C:30

D:35

正确答案：30

3、下面程序：Private Sub Form_Click（） Dim a(100) As Integer For i = 1 To 10 j = i i a(j) = j Next i Print a(25)End Sub运行后，单击窗体，则输出的结果是（）。

A:25

B:36

C:49

D:81

正确答案：两个图形的中心坐标分别是(300, 600)和(900, 600)

4、有如下语句：Option Base 1Private Sub Command1_Click（） Dim A(2, -1 To 1) As Integer ……End Sub 以上语句所定义的数组A为（）维数组，共有（）个元素，第一维下标从（）到（），第二维下标从（）到（）。

A:1,2,6,2,-1,1

B:6,2,1,2,-1,1

C:2,6,1,2,-1,1

D:2,1,6,-1,1,2

正确答案：2,6,1,2,-1,1

5、有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer For i = LBound(a, 1) To UBound(a, 1) a(i) = i Next i Print a(LBound(a, 1)); a(UBound(a, 1))运行后输出的结果为（）。