Imports System

Public Module Module1

    dim numero1 as integer

    Public Sub Main()

        Console.WriteLine("Ingrese un numero del 1 al 7: ")

        numero1=console.ReadLine()

        if numero1 = 1 then

            console.WriteLine("Lunes")

        end if

        if numero1 = 2 then

            console.WriteLine("Martes")

        End If  

        if numero1 = 3 then

            console.WriteLine("Miercoles")

        end if

        if numero1 = 4 then

            console.WriteLine("Jueves")

        end if

        if numero1 = 5 then

            console.WriteLine("Viernes")

        end if

        if numero1 = 6 then

            console.WriteLine("Sabado")

        end if

        if numero1 = 7 then

            console.WriteLine("Domingo")

        End if

        if numero1 > 7 then

            console.WriteLine("ERROR. Ingrese un numero del 1 al 7")

        end if

        if numero1 < 1 then

            console.WriteLine("ERROR. Ingrese un numero del 1 al 7")

        end if

    End Sub

End Module