Option Strict On
Imports System.Collections
Public Module modMain
Public Sub Main()
Dim airports As New Hashtable
airports.Add("S", "SSS")
airports.Add("X", "XXX")
airports.Add("D", "DDD")
airports.Add("R", "RRR")
Dim values As ICollection = airports.Values
Dim valuesArray(airports.Count - 1) As String
values.CopyTo(valuesArray, 0)
Array.Sort(valuesArray)
Console.WriteLine()
For Each value As String in valuesArray
Console.WriteLine(value)
Next
End Sub
End Module
|