Imports System

'EJEMPLO CASE

'REALIZADO POR: JOSE ORTIZ

Public Module Module1

    Public Sub Main()

        Console.WriteLine("EJEMPLO CASE")

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

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

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

        DIM OPCION AS INTEGER

        OPCION =CONSOLE.ReadLine()

        'ESTRUCTURA DEL CASE 

        SELECT OPCION

        CASE 1

            CONSOLE.Write("BIENVENIDO")

        CASE 2

            CONSOLE.Write("EL AYER ES HISTORIA, EL MAÑANA ES UN MISTERIO Y EL HOY ES OBSEQUIO, POR ESO SE LLAMA PRESENTE.")

        CASE 3

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

        CASE ELSE

            CONSOLE.WriteLine("INGRESE UNA OPCION VALIDA")

        END SELECT

    End Sub

End Module