Imports System

Public Module Module1

    Public Sub Main()

        dim months(11) as string

        dim i as integer

        months(0) = "January"

        months(1) = "February"

        months(2) = "March"

        months(3) = "April"

        months(4) = "May"

        months(5) = "June"

        months(6) = "July"

        months(7) = "August"

        months(8) = "September"

        months(9) = "October"

        months(10) = "Novemeber"

        months(11) = "December"

        for i = 0 to 10

        console.Write(months(i) & ", ")

    next

    console.write(months(11))

    End Sub

End Module