Question

How to perform linear search (sequential search) in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function Linear_Search(ByVal arr As Integer(), ByVal data As Integer) As Integer
        For i As Integer = 0 To arr.Length - 1
            If data = arr(i) Then Return i
        Next

        Return -1
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {4, 9, 78, 99, 10, 1200, 300}
		
        Dim index As Integer = Linear_Search(arr, 99)
		
        Console.Write(index)
    End Sub
End Class



' run:
'
' 3
'

 

70+ SQL courses for beginners and professionals