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