Imports System

'EJEMPLO WHILE

'REALIZADO POR: PAULA ZULEMA LÓPEZ BARAHONA. 

Public Module Module1

    Public Sub Main()

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

        'EL CICLO WHILE DEBE INICIARSE ANTES DE MOSTAR EL MENU

        Dim respuesta as integer

        'EL VALOR PREDETERMINADO DE LA RESPUESTA SERA SIEMPRE VERDADERO

        Respuesta = 1

        WHILE Respuesta = 1

        Console.WriteLine("MENU 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 

    End Sub

End Module