Option Base 1
Private Sub Command1_Click()
Dim A, I As Integer, J As Integer, S As Long A = Array(1, 2, 3, 4) J = 1
For I = 4 To 1 Step -1 S = S + A(I) * J J = J * 10 Next I Print S End Sub
A．1234 B．4321 C．12 D．34
7、一个命令按钮中编写了如下代码，运行后单击命令按钮，输出结果是：＿＿＿。 Option Base 1
Private Sub Command1_Click()
Dim M(10) As Integer, K As Integer, x As Integer For K = 1 To 10 M(K) = 12 - K Next K x = 6
Print M(2 + M(x)) End Sub
A．2 B．3 C．4 D．5
8、关于Array()函数，下列说法不正确的是：＿＿＿。 A．使用Array()函数可以使数组在程序运行之前初始化 B．使用Array()函数可以使数组在程序运行之后初始化 C．Array()函数只适用于一维数组
D．语句Num=Array(1,2,3,4)所表达的意思是把1、2、3、4这4个数赋给数组Num的各个元素。
9、控件数组建立后，只要改变一个控件的Name属性值，并把＿＿＿属性设置为空，就能把该控件从控件数组中删除。
A．Caption B．Enable C．Index D．Visible
43
10、以下说法不正确的是：＿＿＿。 A．使用Redim语句可以改变数组的类型 B．使用Redim语句可以改变数组的维数 C．使用Redim语句可以改变数组的每一维的大小
D．使用Redim语句可以对数组中的所有元素进行重新赋值 11、下列程序段的执行结果是：＿＿＿。 Option Base 1
Private Sub Command1_Click() Dim M(9) As Integer, I As Integer For I = 1 To 9 M(I) = M(I - 1) + I Next I Print M(5) End Sub
A．10 B．14 C．15 D．20 12、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click()
Dim M(2) As Integer, I As Integer, J As Integer For I = 1 To 2 For J = 1 To 2 M(J) = M(I) + 1 Next J Print M(J - 1) Next I End Sub
A．2 3 B．1 3 C．1 2 D．0 13、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click()
Dim A(5, 6) As Integer, I As Integer, J As Integer For I = 1 To 3 For J = 1 To 4 A(I, J) = I - J
44
3 Next J Next I For I = 1 To 2 For J = 1 To 3 Print A(J, I) Next J Next I End Sub
A．0 1 B．-1 -2 1 0 -1 C．0 -1 D．0 1 2 -1 0 1 14、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click()
Dim A(10, 10) As Integer, I As Integer, J As Integer For I = 4 To 5 For J = 2 To 4 A(I, J) = I * J Next J Next I
Print A(4, 3) + A(5, 4) End Sub
A．22 B．32 C．42 D．52 15、下列程序段的执行结果为：＿＿＿。 Private Sub Command1_Click()
Dim X(3, 5) As Integer, I As Integer, J As Integer For I = 1 To 3 For J = 1 To 5
X(I, J) = X(I - 1, J - 1) + I + J Next J Next I Print X(3, 3) End Sub
A．9 B．12 C．15 D．21
45
二、填空题
1、写出下列程序段的功能：＿＿＿＿＿＿＿＿＿＿＿＿。 Dim A(1 To 10) As Integer
些处对数组A(1 To 10)赋值，代码略。 Private Sub Command1_Click()
Dim Min As Integer, MinIndex As Integer Min = A(1): MinIndex = 1 For i = 2 To 10 If A(i) < Min Then Min = A(i) MinIndex = i End If Next i End Sub
2、下面程序段是选择排序的思想，对已知数组中的几个数，有选择地按递增顺序排序，填空完成程序。
已知定义了一维数组A，有n的元素 Private Sub Command1_Click()
Dim iMax As Integer, I As Integer, J As Integer, T As Single For I = 0 To N - 1 iMax = I For J = I + 1 To N
If A(J) < A(iMax) Then ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ Next J
＿＿＿＿＿＿＿ A(I) = A(iMax) A(iMax) = T Next I End Sub
3、命令按钮中有如下代码，程序运行后，单击命令按钮，输出结果是：＿＿＿＿＿＿＿＿＿。
Private Sub Command1_Click()
46
Dim A(5, 5) For I = 1 To 4 For J = 1 To 2 A(I, J) = I * J Next J Next I For N = 1 To 2 For M = 1 To 2 Print A(N, M) Next Next End Sub
4、命令按钮中有如下代码，程序运行后，单击命令按钮，输出结果是：＿＿＿＿＿＿＿＿＿。
Private Sub Command1_Click()
Dim M(10) As Integer, K As Integer, X As Integer For K = 1 To 10 M(K) = 10 - K Next K X = 3
Print M(2 + M(X)) End Sub
5、从键盘上输入10个数，用冒泡排序法对这10个数从小到大排序，填空完成程序。 Private Sub Command1_Click()
Static Number(1 To 10) As Single, T As Single, I As Integer, J As Integer For I = 1 To 10
Number(I) = InputBox(\输入数据\冒泡排序\ Next I
For I = 10 To 2 Step -1 For J = 1 To I - 1
If ＿＿＿＿＿＿＿＿＿＿＿＿ Then T = Number(J + 1)
47