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