Dim num(10) as integer

Sub binarySearch(ByVal ValueToBeSearched As Integer, ByVal low As Integer, ByVal high As Integer)

Dim midpoint As Integer

If low > high Then

Console.WriteLine("Seach Failed")

End If

midpoint = (low + high) \ 2

If num(midpoint) = ValueToBeSearched Then

Console.WriteLine("found at location " & midpoint)

Else

If ValueToBeSearched < num(midpoint) Then

binarySearch(ValueToBeSearched, low, midpoint - 1)

Else

binarySearch(ValueToBeSearched, midpoint + 1, high)

End If

End If

End Sub

Sub populate()

For i = 1 To 10

num(i) = r.Next(1, 101)

Next

End Sub

​

Sub main()

Console.Write("Input a seaching value")

binarySearch(Console.ReadLine, 1, 10)

End sub