Imports System

Public Module Module1

    Public Sub Main()

        Dim outlet1Sales As Integer() = {10,12,15,10}

        Dim outlet2Sales As Integer() = {5,8,3,6}

        Dim outlet3Sales As Integer() = {10,12,15,10}

        Dim totalsales As Integer() = {0,0,0,0}

        For quarter = 0 To 3

         totalsales(quarter) = totalsales(quarter) + outlet1Sales(quarter) + outlet2Sales(quarter) + outlet3Sales(quarter)

         Console.WriteLine("total for quarter" & quarter+1 & totalsales(quarter))

    Next

    End Sub

End Module