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

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

admin2010-03-30  63
问题  设有如下程序
   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
   程序运行后，输出结果是______。
选项
答案5
解析 本题综合考查了数值的初始赋值，Sub过程的建立与调用，For循环控制语句等多项内容。本题的要点在于理解Sub过程 Search所要表达的意思．根据题意，Search需要在数组a()中寻找等于key的数，如果找到了，则令Index等于该元素的下标值，如果没有找到，则令Index等于-1。据此，在调用Search时，11为b(8)的第6个元素，下标为5，故index为5。
转载请注明原文地址:https://kaotiyun.com/show/gp1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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