Imports System

'EJEMPLO CASE

' REALIZADO POR: MARÍA PAULA CASTILLO  MEJICANOS

​

Public Module Module1

    Public Sub Main()

        Console.WriteLine("EJEMPLO CASE")

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

        CONSOLE.WriteLine("2. MUESTRA FRASE DEL DÍA")

        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("El ayer es historia, el mañana es un misterio y el hoy es un obsequio")

        CASE 3

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

        CASE ELSE

            CONSOLE.WriteLine("INGRESE UNA OPCION VALIDA")

        END SELECT

    End Sub

End Module