![[填空题] 设有如下程序 Private Sub Search(a()As Variant， ByVal key As Variant， index%) Dim I% For I=LBoun](http://www.mshxw.com/aiimages/31/249454.png "[填空题] 设有如下程序 Private Sub Search(a()As Variant， ByVal key As Variant， index%) Dim I% For I=LBoun")
[填空题] 设有如下程序
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
程序运行后，输出结果是______。
参考答案：
E问题解析:
本题综合考查了数值的初始赋值，Sub过程的建立与调用，For循环控制语句等多项内容。本题的要点在于理解Sub过程 Search所要表达的意思．根据题意，Search需要在数组a()中寻找等于key的数，如果找到了，则令Index等于该元素的下标值，如果没有找到，则令Index等于-1。据此，在调用Search时，11为b(8)的第6个元素，下标为5，故index为5。
