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