Declarando, inicializando e percorrendo os elementos de um array de duas dimensões

'Este exemplo mostra como declarar e inicializar
'um array de duas dimensões (matriz retângular) 

Module Module1
  Sub Main()
    'declara o array
    Dim valores As Integer(,)
    'inicializa o array
    valores = New Integer(,) {{1, 2, 3}, {4, 5, 6}}

    Console.WriteLine("Valores na matriz retangular:")

    For i As Integer = 0 To valores.GetUpperBound(0)
      For j As Integer = 0 To valores.GetUpperBound(1)
        Console.Write(valores(i, j) & " ")
      Next
      Console.WriteLine()
    Next

    Console.ReadKey()
  End Sub
End Module