9、在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1 （下标从0 开始，自左至右顺序增大），然后编写如下事件过程： Private Sub Command1_Click() For Each TextBox In Text1 Text1(i) = Text1(i).Index i = i + 1 Next End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为（ A ） A、0 1 2 3 B、1 2 3 4 C、0 1 3 2 D、出错信息 10、有如下程序： Option Base 1
Private Sub Form_Click() Dim arr, Sum Sum = 0
arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10
If arr(i) / 3 = arr(i) \\ 3 Then Sum = Sum + arr(i) End If Next i Print Sum End Sub
程序运行后，单击窗体，输出结果为（ C ） A、25 B、26 C、27 D、28 11、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5
a(i) = Chr(Asc(\ Next i
For Each b In a Print b; Next End Sub
程序运行后，单击命令按钮，输出结果是（ A ） A、ABCDE B、1 2 3 4 5 C、abcde D、出错信息 12、已知有数组声明：Dim a(-1 To 3,2 To 5)As integer,如下引用数组中的元素，正确的是 A、a(-1,2) B、a(4) C、a[-1,2] D、a(0,6) 13、下列有关控件数组与一般控件的区别的叙述中，最合理的是（ B ） A、控件数组一定由多个同类型的控件组成，一般控件只有一个控件； B、控件数组的Index 为0，而一般控件的Index 为空； C、控件数组的Index 为 1，而一般控件的Index 为0；
D、控件数组的建立通过Dim 语句声明，而一般控件不必声明。
A 14、对窗体编写如下代码： Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer) a = Array(237, 126, 87, 48, 498) m1 = a(1) m2 = 1
If KeyAscii = 13 Then For I = 2 To 5
If a(I) > m1 Then m1 = a(I) m2 = I End If Next I End If Print m1 Print m2 End Sub 程序运行后，按回车键，输出结果为（ A A、498 5 B、498 4 C、48 4 D、237 15、在窗体上画一个名称为Label1 的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i
Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub
程序运行后，单击窗体，在标签中显示的内容是（ B A、12 B、13 C、18 D、15 16、阅读程序： Option Base 1
Dim arr() As Integer
Private Sub Form_Click()
Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i
ReDim Preserve arr(3, 4)
）。。 ） For j = 3 To 4 arr(3, j) = j + 9 Next j
Print arr(3, 2) + arr(3, 4) End Sub
程序运行后，单击窗体，输入结果为（ A ）。 A、21 B、13 C、8 D、25 17、在窗体上画一个名称为Command1 的命令按钮，然后编写如下程序： Option Base 1
Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6
x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6
If x(i) > c Then d = d + x(i) c = x(i) Else
d = d - c End If Next Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ C ）。 A、10 B、16 C、12 D、20 18、假定建立了一个名为Commandl 的命令按钮数组，则以下说法中错误的是（ B ）。 A、数组中每个命令按钮的名称(Name 属性)均为Commandl B、数组中每个命令按钮的标题(Caption 属性)都一样 C、数组中所有命令按钮可以使用同一个事件过程
D、用名称Commandl(下标)可以访问数组中的每个命令按钮 19、在窗体上画一个名称为Labell 的标签，然后编写如下事件过程： Private Sub Form_Click()
Dim arr(10，10)As Integer Dim I As Integer,j As Integer For i=2 TO 4
For j=2 To 4 arr(i,j)=I*j Next j Next i
Labell ．Caption=Str(arr(2，2)+arr(3，3)) End Sub
程序运行后，单击窗体，在标签中显示的内容是（ B ）。 A、12 B、13 C、14 D、15
20、阅读程序： Option Base l
Dim arr()As Integer
Private Sub Form_Click()
Dim I As Integer,j As Integer ReDim arr(3，2) For i=1 TO 3 For j=1 To 2
arr(i，j)=I*2+j Next j Next i
ReDim Preserve arr(3，4) For i=3 To 4
arr(3，j)=j+9 Next j
Print arr(3，2)+arr(3，4) End Sub
程序运行后，单击窗体，输入结果为（ A ）。 A、121 B、13 C、8 D、25 （二）判断题（对的在括号内打“√”，错的在括号内打“×” ） 1、（ F）在Visual Basic 中，用Dim 定义数组时数组元素也自动也自动赋初值为零 2、（F ） option Base 语句在模块中使用，用来显式说明数组上界。 3、（T ）动态数组是元素个数在运行时可以改变的数组 4、（T ）数组的引用通常是指对数组元素的引用，其方法是在数组后面的括号中指定下标 5、（F ） ReDim 语句可以在模块级中使用 6、（T）使用ReDim 语句会使原来数组中的值丢失，可以在ReDim 语句后加Preserve 参数来保留数组中的数据。 7、（F ）用Erase 语句清除动态数组，数组依然存在内存。 8、（F ）可以使用Lbound 函数来测试数组的下界值。 9、（T ）数组必须先定义后使用。 10、（F ）控件数组共用一个控件名，但具有不同的属性，它们的事件过程也不相同。
第七章
（一）选择题
1．SUB 过程与Function 过程最根本的区别在于（ D ） A. sub 过程可以使用call 语句或直接使用过程名调用，而Function 过程不可以 B. Function 过程可以有参数，sub 过程不可以 C. 两种过程参数的传递方式不同
D. sub 过程的过程名不能返回值，而Function 过程能通过过程名返回值 2．在代码中定义了一个子过程 sub p(a,b) …
end sub
下面（ C ）调用该过程的格式是正确的
A. call p B. call p 12,30 C. call p(10,20) D. p(10,20)
3．下列程序输出结果为（ B ） Private Sub Command1_Click() a%=10 b%=5
Change a,b Print a,b End Sub
Private Sub Change(ByVal a As Integer,b As Integer) Tmp=a a=b b=tmp End Sub
A. 5 5 B. 10 10 C. 10 5 D. 5 10
4．过程调用时，下列关于形参与实参之间数据传递的原则说法正确的是（D ） A. 按实参和形参同名的原则 B. 按实参和形参位置对应的原则
C. 按实参和形参个数相同并且类型也对应的原则
D. 按实参和形不仅位置对应，而且类型也对应的原则
5．过程调用时，下列说法不正确的是（ D ） A. 数组、记录类型、对象参数只能是地址传递
B. 形参是值传递，对应实参可以是表达式、常量、数组元素 C. 形参是地址传递，对应实参只能是简单变量 D. 形参是地址传递，对应实参只能是表达式
6．下面关于可选参数过程的说法不正确的是（ C ） A. 通过 optionnal 指定可选的参数，
B. 可选参数必须在参数表的最后，其类型必须是Variant， C. 可选参数必须在参数表的最后，其类型可以设置为integer
D. 过程中通过IsMissing 函数测试是否已向可选参数传送了实参值。 7．下面关于可变参数过程的说法不正确的是（ B ）
A. 可变参数过程定义的格式为：sub 过程名{ParamArray 数组名} B. 数组名是一个形式参数，下界必须设为 1 C. 可变参数过程中不能有可选参数
D. 数组名是一个形式参数，只有名字和括号，其类型必须是Variant 。 8．下面说法不正确的是（ A ）
A. 对象参数过程的实参和形参的控件必须拥有同样的属性 B. 对象参数过程的形参的类型可以是 form 或control C. shell 函数和其他函数一样，只能作为语句中的表达式 D. 为了防止递归调用的“栈溢出”，要设法使每递归调用一次，其中的参数要向终止方向收敛，能够在有限步内达到终止条件。
9．下面过程定义语句中合法的是（ D ） A. sub proc(byval n()) B. sub proc(n) as integer C. function proc (proc) D. function proc(byval n) 10．运行下面程序的结果是（ B ）三个数 Private Sub Form_Click()