DIM Array(5, 5) AS INTEGER
        DIM RowSum(5), ColSum(5), DiagASum, DiagBSum, TempSum AS DOUBLE
        DIM RowMean(5), ColMean(5), DiagAMean, DiagBMean AS DOUBLE
        DIM R, C, I, Num AS INTEGER
        DIM RandomNum AS New RANDOM

        lst_out.Items.CLEAR()

        'Fill a two dimensional 5 by 5 Array
        R = 1
        C = 1
        FOR R = 1 TO 5
            FOR C = 1 TO 5
                Num = RandomNum.NEXT(1, 10)
                Array(R, C) = Num
                'lst_out.Items.Add("Array(" & R & "," & C & ") = " & Array(R, C))
            NEXT
        NEXT

        'Get the sums and averages into two one dimensional 5 row arrays
        'Rows
        R = 1
        C = 1
        TempSum = 0
        FOR C = 1 TO 5
            FOR R = 1 TO 5
                ColSum(C) = Array(R, C) + TempSum
                'lst_out.Items.Add("ColSum(" & C & ") = " & ColSum(C))
            NEXT
            ColMean(C) = Math.Round(ColSum(C) / 5)
            lst_out.Items.Add("ColMean(" & C & ") = " & ColMean(C))
        NEXT

        lst_out.Items.Add("")
        'Columns
        R = 1
        C = 1
        TempSum = 0
        FOR R = 1 TO 5
            FOR C = 1 TO 5
                RowSum(R) = Array(R, C) + TempSum
                'lst_out.Items.Add("RowSum(" & R & ") = " & RowSum(R))
            NEXT
            RowMean(R) = Math.Round(RowSum(R) / 5)
            lst_out.Items.Add("RowMean(" & R & ") = " & RowMean(R))
        NEXT

        lst_out.Items.Add("")
        'Calculate the two diagonals of the two dimensional 5 by 5 array
        'Diagonals
        I = 1
        TempSum = 0
        FOR I = 1 TO 5
            DiagASum = Array(I, I) + TempSum
        NEXT
        DiagAMean = DiagASum / 5
        lst_out.Items.Add("Diagonal A Mean = " & DiagAMean)

        lst_out.Items.Add("")
        R = 1
        C = 1
        TempSum = 0
        FOR R = 1 TO 5
            FOR C = 1 TO 5
                DiagBSum = Array(R, 6 - C) + TempSum
            NEXT
        NEXT
        DiagBMean = DiagBSum / 5
        lst_out.Items.Add("Diagonal B Mean = " & DiagBMean)