Imports System

Public Module Module1

    Public Sub Main()

        dim Months(11) as string

        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) = "November,"  

        Months(11) = "December"

        Dim i As Integer

For i = 0 To 11

        Console.Write(Months(i) & " ")

Next

​

    End Sub

End Module