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

index=I

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，7，9，11，13，15)

Call search(b，11，n)

Print n

End Sub

程序运行后，输出结果是 【6】 。