Module Module1
Sub Main()
Dim arr As String() = {"VB.NET", "C", "PHP", "C++", "C#"}
Array.Sort(arr)
For Each value As String In arr
Console.WriteLine(value)
Next
Console.WriteLine()
Dim index As Integer = Array.BinarySearch(arr, "PHP")
Console.WriteLine("arr({0}) = {1}", index, arr(index))
End Sub
End Module
' run:
'
' C
' C#
' C++
' PHP
' VB.NET
' arr(3) = PHP