Imports System

'EJEMPLO CASE   

'EMILIO FLORES

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 DESPEDIDAD")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        'ESTRUCTURA DEL CASE

        SELECT OPCION

        CASE 1

            CONSOLE.WriteLine("BIENVENID@")

        CASE 2

            CONSOLE.WriteLine("HOY ES UN GRAN DIA")

        CASE 3

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

        CASE ELSE

            CONSOLE.WriteLine("INGRESE UNA OPCION VALIDA")

        END SELECT  

    End Sub

End Module