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)

admin2009-02-13  47
问题 设有如下程序：
   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
解析 该过程实现顺序查找的功能，即从数组的第0个元素开始，依次和关键字key进行比较，如果相等，则返回其下标并结束查找。Visual Basic中默认数组元素的下标从。开始，因此11是第6个元素，其下标为5。
转载请注明原文地址:https://kaotiyun.com/show/h91p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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