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