2. 计算机
  3. 设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBoun

设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(A)To UBoun

admin2009-01-15  55
问题 设有如下程序
      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。
转载请注明原文地址:https://www.kaotiyun.com/show/bv2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)