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

22 查阅

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

计算机考试