[填空题] 设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(a

[填空题] 设有如下程序

Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%)

Dim I%

For I=LBound(a) To UBound(a)

If key=a(1) Then

index=I

Exit Sub

End If

Next I

index=I

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程序动行后,输出结果是 【15】 。