Help with arrays and populating total

[deoman2005]

Module SalesAnalysis2

    Sub Main()
        Dim SalesTable(5, 4) As Integer
        Dim row, col As Integer
        Dim sum As Integer
        Dim total As Integer

        'populate Quater 1
        SalesTable(0, 0) = 750
        SalesTable(1, 0) = 800
        SalesTable(2, 0) = 700
        SalesTable(3, 0) = 850
        SalesTable(4, 0) = 900

        'populate Quater 2
        SalesTable(0, 1) = 660
        SalesTable(1, 1) = 700
        SalesTable(2, 1) = 600
        SalesTable(3, 1) = 800
        SalesTable(4, 1) = 800

        'populate Quater 3
        SalesTable(0, 2) = 910
        SalesTable(1, 2) = 950
        SalesTable(2, 2) = 750
        SalesTable(3, 2) = 1000
        SalesTable(4, 2) = 960

        'populate Quater 4
        SalesTable(0, 3) = 800
        SalesTable(1, 3) = 900
        SalesTable(2, 3) = 600
        SalesTable(3, 3) = 950
        SalesTable(4, 3) = 980



        For col = 0 To 3
            sum = 0
            For row = 0 To 4
                sum += SalesTable(row, col)
            Next
            Console.WriteLine("Quater " & (col + 1) & " total is " & sum)

        Next
        Console.WriteLine("")

        For col = 0 To 4
            For row = 0 To 5
                sum += SalesTable(row, col)
            Next
            Console.WriteLine("Grand total is " & sum)
        Next

        For row = 0 To 4
            sum = 0
            For col = 0 To 3
                sum += SalesTable(row, col)
            Next
            Console.WriteLine("Department " & (row + 1) & " sum is " & sum)
        Next
        Console.WriteLine("")

    End Sub

End Module

Heres what I got so far. Everything works except I can not get the grand total to display right which is 16360. Any help would be glady appreciated.

 

[Canopy High]

After this code variable sum still has a value of 4230:

For col = 0 To 3
            sum = 0
            For row = 0 To 4
                sum += SalesTable(row, col)
            Next
            Console.WriteLine("Quater " & (col + 1) & " total is " & sum)

        Next
        Console.WriteLine("")

Equate sum again to 0 before you call this code:

For col = 0 To 4
            For row = 0 To 5
                sum += SalesTable(row, col)
            Next
            Console.WriteLine("Grand total is " & sum)
        Next

Jah Bless!!!


Drop Seeds and not your Bombs, Show your Love and not your Arms.