Imports System

Public Module Module1

    Public Sub Main()

        Dim numbers(5),x as integer

        console.WriteLine("Input a number:")

        x = console.ReadLine()

        if x mod 2 = 1

        numbers(0) = x

        numbers(1) = x + 2

            numbers(2) = x + 4

            numbers(3) = x + 6

            numbers(4) = x + 8

            numbers(5) = x+10

        else numbers(0) = x

            numbers(1) = x + 1

            numbers(2) = x+3

            numbers(3)=x+5

            numbers(4)=x+7

            numbers(5)=x+9

        end if

        for i = 0 to 5

        console.WriteLine(numbers(i))

    next

    End Sub

End Module

Public Module Module2

    Public Sub Main()

        dim months(12) as string

        months(1) = "January"

        months(2) = "February"

        months(3) = "March"

        months(4) = "April"

        months(5) = "May"

        months(6) = "June"

        months(7) = "July"

        months(8) = "August"

        months(9) = "September"

        months(10) = "October"

        months(11) = "November"

        months(12) = "December"

        for i = 1 to 12

        if i = 12 then

            console.Write(months(i) + ".")

        else console.Write(months(i) + ", ")

        end if

    next

    End Sub

End Module

​

Public Module Module3

    Public Sub Main()

        Console.WriteLine("Input a sentence with 6 words:")

        dim sentence as string

        dim arr as object

        sentence = console.readLine()

        arr = (sentence).Split(" ")

        for i = 0 to 5

            for j = 0 to i

        console.Write(arr(j) + " ")

            next

    console.WriteLine()

        next

    end sub

End Module