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

admin2009-02-13  27

问题 设有如下程序:
   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
0

最新回复(0)