Imports System
Public Class Test
Public Shared Sub Main()
Dim arr As Integer() = {5, 7, 8, 2, 1, 3, 6}
Array.Sort(arr)
For Each n As Integer In arr
Console.Write(n & " ")
Next
Console.WriteLine()
Console.WriteLine(Array.BinarySearch(arr, 5))
Console.WriteLine(Array.BinarySearch(arr, 9))
Console.WriteLine(Array.BinarySearch(arr, 0))
End Sub
End Class
' run:
'
' 1 2 3 5 6 7 8
' 3
' -8
' -1
'