linearsearch.vb

VB.net数据结构演示算法

' Fig. 7.12: LinearSearch.vb
' Linear search of an array.

Imports System.Windows.Forms

Module modLinearSearch

   ' iterates through array 
   Function LinearSearch(ByVal key As Integer, _
      ByVal numbers As Integer()) As Integer

      Dim n As Integer

      ' structure iterates linearly through array
      For n = 0 To numbers.GetUpperBound(0)

         If numbers(n) = key Then
            Return n
         End If

      Next

      Return -1
   End Function ' LinearSearch

End Module ' Linear Search


' *************************************************************
' * (C) Copyright 2002 by Deitel & Associates, Inc.           *
' *     and Prentice Hall.                                    *
' * All Rights Reserved.                                      *
' *                                                           *
' * DISCLAIMER: The authors and publisher of this book have   *
' * used their best efforts in preparing the book. These      *
' * efforts include the development, research, and testing of *
' * the theories and programs to determine their              *
' * effectiveness. The authors and publisher make no warranty *
' * of any kind, expressed or implied, with regard to these   *
' * programs or to the documentation contained in these books.*
' * The authors and publisher shall not be liable in any event*
' * for incidental or consequential damages in connection     *
' * with, or arising out of, the furnishing, performance, or  *
' * use of these programs.                                    *
' *************************************************************