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