'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

Informe o valor para a linha 0 e coluna 0: 3
Informe o valor para a linha 0 e coluna 1: 7
Informe o valor para a linha 0 e coluna 2: 9
Informe o valor para a linha 1 e coluna 0: 2
Informe o valor para a linha 1 e coluna 1: 4
Informe o valor para a linha 1 e coluna 2: 1
Informe o valor para a linha 2 e coluna 0: 5
Informe o valor para a linha 2 e coluna 1: 6
Informe o valor para a linha 2 e coluna 2: 8

   3   7   9
   2   4   1
   5   6   8

A soma dos elementos da diagonal principal é: 15