Imports System

'EJEMPLO CASE

'REALIZADO POR: PAULA ZULEMA LPOPEZ BARAHONA

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("EJEMPLO CASE")

        CONSOLE.WriteLine("1. MUESTRA MANSAJE 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("BIENVENID@")

        CASE 2 

            CONSOLE.Write("NUNCA TE RINDAS QUE YA ESTAS LLEGANDO A LA META")

        CASE 3

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

        CASE ELSE 

            CONSOLE.WriteLine("INGRESE UNA OPCION VALIDA")

​

        END SELECT 

    End Sub

End Module