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