Linear search of an array : Array Sort Reverse « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Array Sort Reverse

Public Class Tester
    Public Shared Sub Main
    
      Dim array1 As Integer() = New Integer(19) {}

      Dim randomNumber As Random = New Random()
      Dim i As Integer

      ' creates string containing 11 random numbers
      For i = 0 To array1.GetUpperBound(0)
         array1(i) = randomNumber.Next(1000)
         Console.Write ( array1(i) & " ")
      Next
      Console.WriteLine("")


      Dim searchKey As Integer = 12
      Dim element As Integer = LinearSearch(searchKey, array1)

      If element <> -1 Then
         Console.WriteLine("Found Value in index " & element)
      Else
         Console.WriteLine("Value Not Found")
      End If

    End Sub
    Shared 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 Class

269 875 968 591 930 801 98 760 596 715 433 655 902 602 257 186 470 856 277 109
Value Not Found