Imports System

'ReaLIZADO POR: DANIEL GAITAN

'EJEMPLO CASE

Public Module Module1

    Public Sub Main()

        Console.WriteLine("MENU DE OPCIONES")

        CONSOLE.WriteLine("1. MENSAJE DE BIENVENIDA")

        CONSOLE.WriteLine("2. FRASE DEL DIA")

        CONSOLE.WriteLine("3. MENSAJE DE DESPEDIDA")

        CONSOLE.WriteLine("INGRESE OPCION")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        'ESTRUCTURA DE CASE

        SELECT OPCION

        CASE 1

            CONSOLE.WriteLine("BIENVENIDO/A")

        CASE 2 

            CONSOLE.Write("Aunque sea difícil de creer, la felicidad puede entrar en tu vida en el momento más inesperado y por la puerta que creíste haber cerrado hace mucho.")

        CASE 3 

            CONSOLE.Write("HASTA MAÑANA......")

        CASE ELSE

            CONSOLE.WriteLine("INGRESE UNA OPCION CORRECTA")

        END SELECT

    End Sub

End Module