A-A+

设有如下程序 Private Sub Search(a()As Variant ByVa1

2022-08-12 20:01:22 问答库阅读 197 次

问题详情

设有如下程序 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程序动行后,输出结果是【】。

请帮忙给出正确答案和分析，谢谢！

参考答案

正确答案：5
根据题意，Search需要在数组a()中寻找等于key的数，如果找到了，则令In-dex等于该元素的下标值，如果没有找到，则令Index等于-1。根据，在调用Search时，11为b(8)的第6个元素，下标为5，故index为5。