[填空题] 设有如下程序： 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。