Imports System
Public Class Program
Public Shared Sub Main()
Dim matrix As Integer(,) = {
{1, 2, 3, 5},
{4, 5, 6, 1},
{7, 8, 9, 0}}
Dim rows As Integer = matrix.GetLength(0)
Dim cols As Integer = matrix.GetLength(1)
For i As Integer = 0 To cols - 1
For j As Integer = 0 To rows - 1
Console.Write(matrix(j, i) & " ")
Next
Console.WriteLine()
Next
End Sub
End Class
' run:
'
' 1 4 7
' 2 5 8
' 3 6 9
' 5 1 0
'