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