Imports System

'REALIZADOR POR Natalia Coronado 

Public Module Module1

    Public Sub Main()

        'ELEMENDOS DEL WHILE, SIEMPRE NECESITA UNA RESPUESTA V/F, S/N, 1 = SI, 2= NO

        'EL CICLO WHILE DEBE INICIARSE ANTES DE MOSTRAR EL MENÚ

        DIM RESPUESTA AS INTEGER

        'EL VALOR PREDETERMINADO DE LA RESPUESTA SERA SIEMPRE VERDADERO

        RESPUESTA = 1

        WHILE RESPUESTA = 1

        Console.WriteLine("MENÚ DE OPCIONES")

        CONSOLE.WriteLine("1. OPCION A, 2. OPCION B, SELECCIONE UNA OPCION: ")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        'CICLO CASE

        SELECT OPCION

        CASE 1

            CONSOLE.WriteLine("EJECUTAR LOS COMANDOS PARA LA OPCION A")

            CONSOLE.WriteLine("DESEA CONTINUAR? 1. SI, 2. NO")

            RESPUESTA = CONSOLE.ReadLine()

        CASE 2

            CONSOLE.WriteLine("EJECUTARÁ LOS COMANDOS PARA LA OPCION B")

            CONSOLE.WriteLine("DESEA CONTINUAR? 1. SI, 2. NO")

            RESPUESTA = CONSOLE.ReadLine()

    END SELECT

        END WHILE

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

    End Sub

End Module