Imports System

Public Module Module1

        dim numero as integer

    Public Sub Main()

        Console.WriteLine("Ingrese un número del 1 al 7")

        numero = console.ReadLine()

        Select case numero

        Case 1

            Console.WriteLine("El día de la semana es lunes")

        Case 2

            Console.WriteLine("El día de la semana es martes")

        Case 3

            Console.WriteLine("El día de la semana es miercoles")

        Case 4

            Console.WriteLine("El día de la semana es jueves")

        Case 5

            Console.WriteLine("El día de la semana es viernes")

        Case 6

            Console.WriteLine("El día de la semana es sábado")

        Case 7

            Console.WriteLine("El día de la semana es domingo")

        Case else

            Console.WriteLine("El número ingresado no es válido")

        End Select

    End Sub

End Module