How to BinarySearch a List in VB.NET

1 Answer

0 votes
Imports System
Imports System.Collections.Generic

Public Class Program
	Public Shared Sub Main()
		Dim lst As List(Of String) = New List(Of String)()
		
        lst.Add("vb.net")
        lst.Add("php")
        lst.Add("c")
        lst.Add("c++")
        lst.Add("java")
        lst.Add("php")
		lst.Add("vb.net")
        lst.Add("java")
        lst.Add("python")
        lst.Add("javascript")
        
		lst.Sort()
        
		Dim i As Integer = lst.BinarySearch("php")
        Console.WriteLine(i)
        
		i = lst.BinarySearch("vb.net")
        Console.WriteLine(i)
        
		i = lst.BinarySearch("vb.net")
        Console.WriteLine(i)
		
		i = lst.BinarySearch("go")
        Console.WriteLine(i)
    End Sub
End Class



' run:
'
' 5
' 8
' 8
' -3
'

 



answered Aug 3, 2023 by avibootz
...