Module jaggedArray

    Sub Main()
        Dim ar1 As Integer()()
        ar1 = New Integer(2)() {}
        ar1(0) = New Integer(2) {1, 2, 3}
        ar1(1) = New Integer(1) {4, 5}
        ar1(2) = New Integer(0) {6}

        Dim i, j, sum As Integer
        For i = 0 To ar1.GetUpperBound(0)
            For j = 0 To ar1(i).GetUpperBound(0)
                Console.Write(ar1(i)(j) & vbTab)
            Next
            Console.Write(vbCrLf)
        Next

        For i = 0 To 2
            sum = 0
            For j = 0 To ar1(i).GetUpperBound(0)
                sum = ar1(i)(j) + sum
            Next

            Console.Write(sum & vbCrLf)
        Next
    End Sub

End Module