Q3:Jagged Array of 3 rows - BZU PAGES: Find Presentations, Reports, Student's Assignments and Daily Discussion; Bahauddin Zakariya University Multan

**shmsa** · #1 06-12-2009, 06:08 PM

create a jagged array of three rows, create different length of rows and show the sum of elements of each row.

Code:

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