选项：

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))运行后输出的结果为（ ）。