modlinear.bas

Visual Basic 6 大学教程的代码

Attribute VB_Name = "modLinear"
' Code module modLinear.bas
Option Explicit

Function LinearSearch(a() As Integer, key As Integer) As Integer
   Dim x As Integer

   For x = LBound(a) To UBound(a)

      If a(x) = key Then
         LinearSearch = x   ' Return index
         Exit Function
      End If

   Next x

   LinearSearch = -1        ' Value not found
End Function