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
Console.WriteLine("rows = from 0 to {0} ", rows)
For i As Integer = 0 To rows
Dim cols As Integer = jaggedArray(i).Length
Console.WriteLine("row = {0} cols = {1} ", i, cols)
Next
End Sub
End Module
' run
'
' rows = from 0 to 5
' row = 0 cols = 6
' row = 1 cols = 3
' row = 2 cols = 4
' row = 3 cols = 5
' row = 4 cols = 2
' row = 5 cols = 1
'
