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

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

[填空题] 设有如下程序 Private Sub Search(a()As Variant， ByVal key As Variant， index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) ThenIndex=IExit 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。