题目：
设有如下程序：
Private Sub Form_Load()
Show
Dim b()As Variant
Dim n As Integer
b=Array(21, 64, 92, 15, 72, 38, 45, 72)
Call search(b，45，n)
Print n
End Sub
Private Sub search(a()As Variant, ByVal key As Variant, index%)
Dim i %
For i=LBound(a)To UBound(a)
If key=a(i) Then
index=i
Exit Sub
End If
Next i
index=-1
End Sub
程序运行后，输出结果是______。
A) 2
B) 6
C) 10
D) 12
答案：
参考答案：B
解析： 本程序的功能是：给定数字"45"，从数组b中查询它所在的位置n。用Array函数给数组b的各元素赋初值，其中数组变量名a应该是变体型的。用数组作为过程的形参时，应在数组名的后面加上一对圆括号，如数组a()；用数组作为过程的实参时，数组名的后面去掉一对圆括号(如数组b())。用类型说明符%来标识mdex和i为整形变量。LBound(a)和UBound(a)函数分别返回数组的下界和上界，其中下界值为0。在子程序search中，当key=a(i)条件(即45=a(6))成立时，变量mdex记录数组下标值6，然后中断循环，退出子程序search，index反传送给变量n，最后打印值为6。
