填空题：设有如下程序Private Sub search(a0As Variant，ByVal key As Variant，i

设有如下程序
Private Sub search(a0As Variant，ByVal key As Variant，index%)
Diml%
For I=LBound(A．To UBound(A．
If k@=a(I)Then
index=I
Exit Sub
End If
Next I
index=-1
End Sub
Private Sub Form_LoadO
Show
Dim b() As Variant
Dim nAsInteger
b=Array(1，3,5，7，9，11，13，15)
Call search(b，1 1，n)
Print n
End Sub
程序运行后，输出结果是____。