![[填空题] 设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(a](http://www.mshxw.com/aiimages/31/251047.png "[填空题] 设有如下程序 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。
