![[填空题] 设有如下程序： Private Sub Search(a()As Variant,ByVal key As Variant,index%) Dim I% For I=LBound(A](http://www.mshxw.com/aiimages/31/252867.png "[填空题] 设有如下程序： Private Sub Search(a()As Variant,ByVal key As Variant,index%) Dim I% For I=LBound(A")
[填空题] 设有如下程序：
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
Exit Sub
End If
Next I
Index=-1
End Sub
Private Sub Form_Load()
show
Dim b() As Variant
Dim n As Integer
b=Array(1,3,5,6,9,11,13,15)
Call Search(b,11．n)
Print n
End Sub
程序运行后，输出结果是 (6) 。
参考答案：
E问题解析:
用户自定义函数的作用为寻找数组内关键字的脚标，注意是脚标是从0开始的，所以“11"出现的第6位的元素脚标为5，index作为返回值回传给n。
