Classificando um array de inteiros em ordem crescente

'Este exemplo mostra como classificar um array de inteiros
'em ordem crescente

Module Module1
  Sub Main()
    ' cria um array de inteiros
    Dim valores() As Integer = {2, 6, 3, 1, 8, 45, 0, 12}

    'exibe os valores do array na ordem original
    For i As Integer = 0 To valores.Length - 1 Step 1
      Console.WriteLine(valores(i))
    Next

    'classifica o array em ordem crescente
    Array.Sort(valores)
    Console.WriteLine()

    'exibe os valores do array na ordem crescente
    For i As Integer = 0 To valores.Length - 1 Step 1
      Console.WriteLine(valores(i))
    Next

    Console.ReadKey()
  End Sub
End Module