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

E

根据题意，Search需要在数组a( )中寻找等于key的数，如果找到了，则令In- dex等于该元素的下标值，如果没有找到，则令Index等于-1。根据，在调用Search时，11为b(8)的第6个元素，下标为5，故index为5。