Imports System

Public Module Module1

    Public Sub Main()

        dim mes as integer

        mes = 2

        '1 al 3 verano

        '4 al 6 otoño

        '7 al 9 invierno

        '9 al 12 primavera

        if (mes >= 1 and mes <= 3) then

            Console.WriteLine("Verano")

        elseif (mes >= 4 and mes <= 6) then

            Console.WriteLine("Otoño")

        elseif (mes >= 7 and mes <= 9) then

            Console.WriteLine("Invierno")

        elseif (mes >= 9 and mes <= 12) then

            Console.WriteLine("Primavera.")

        end if 

    End Sub

End Module