End Sub
程序运行后，单击命令按钮，输出结果是
A.11 3 B.3 11 C.13 3 D.3 13 4.在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码： Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer,p(3) As Integer k=5
For i=1 To 10 a(i)=i Next i
For i=1 To 3 p(i)=a(i*i) Next i
For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub
程序运行后，单击命令按钮，输出结果是 A.35 B.28 C.33 D.37
5.在窗体上画一个命令按钮（其Name属性为Command1)，然后编写如下代码： Option Base 1
Private Sub Command1_Click() Dim a
a=Array(1,2,3,4) j=1
For i=4 To 1 Step -1
- 46 -
s=s+a(i)*j j=j*10 Next i Print s End Sub
程序运行后，单击命令按钮，输出结果是
A.4321 B.12 C.34 D.1234
6.在窗体上画一个命令按钮（其Name 属性为Command1），然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4,4) For i=1 To 4 For j=1 To 4
a(i,j)=(i-1)*3+j Next j Next i
For i=3 To 4 For j=3 To 4 Print a(i,j); Next j Print Next i End Sub
程序运行后，单击命令按钮，输出结果是
A.6 9 B.7 10 C.8 11 D.9 12 7 10 8 11 9 12 10 13 二、填空题
1.控件数组的名字由 属性指定，而数组中的每个元素由
- 47 -
属性指定。
2.由Array函数建立的数组的名字必须是 类型。
3.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim n() As Integer Dim a,b As Integer
a=InputBox(\ b=InputBox(\ Redim n(a to b)
For k=LBound(n,1) To UBound(n,1) n(k)=k
Print\ Next k End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为 。
4.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim a(5) For i=0 To 4 a(i)=i+1 t=i+1
If t=3 Then Print a(i); a(t-1)=a(i-2) Else
a(t)=a(i) End If
- 48 -
If i=3 Then a(i+1)=a(t-4) a(4)=1 Print a(i); Next i End Sub
程序运行后，单击命令按钮，输出结果为 。
5.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim M(10) Ss Integer For k=1 To 10 M(k)=12-k Next k x=6
Print M(2+M(x)) End Sub
程序运行后，单击命令按钮，输出结果为 。
6.在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码： Private Sub Command1_Click() Dim a(5,5) For i=1 to 3 For j=1 to 4 a(i,j)=i*j Next j Next i
For n=1 to 2 For M=1 to 3 Printa(M,n); Next M
- 49 -
Next n End Sub
程序运行后，单击命令按钮，输出结果为 。
一、选择题
1.D 2.C 3.A 4.C 5.D 6.D 二、填空题
1.Name Index 2.Variant 3.n(2)=2 n(3)=3
4.1 2 3 1 4 1 解答： i=0 a(0)=1 t=1
a(1)=a(0)=1 i=1 a(1)=2 t=2 a(2)=2
- 50 -
自测题答案9