Imports System
Public Class Program
Public Shared Function binarySearch(ByVal array As Integer(), ByVal element As Integer, ByVal low As Integer, ByVal high As Integer) As Integer
While low <= high
Dim mid As Integer = low + (high - low) / 2
If array(mid) = element Then Return mid
If array(mid) < element Then
low = mid + 1
Else
high = mid - 1
End If
End While
Return -1
End Function
Public Shared Sub Main()
Dim array As Integer() = {3, 4, 6, 8, 9, 10, 12, 20, 27, 30, 31}
Dim number_to_find As Integer = 9
Dim index As Integer = binarySearch(array, number_to_find, 0, array.Length)
If index = -1 Then
Console.WriteLine("Not found")
Else
Console.WriteLine("Found at index: " & index)
End If
End Sub
End Class
' run:
'
' Found at index: 4
'
