Imports System

Public Module Module1

    Public Sub Main()

        Dim numero as integer 

        Console.Writeline ("Escriba un numero del 1 al 7")

        numero = cint(Console.Readline())

        Select case numero 

        case 1 

            Console.Writeline ("El día es Lunes")

        case 2 

            Console.WriteLine("El dia es Martes")

        case 3

            Console.WriteLine("El dia es Miercoless")

        case 4 

            Console.WriteLine("El dia es Jueves")

        case 5 

            Console.WriteLine("El dia es Viernes")

        case 6

            Console.WriteLine("El dia es Sábado")

        case 7

            Console.WriteLine("El dia es Domingo")

        End select 

    End Sub

End Module