Imports System

Public Module Module1

    Public Sub Main()

        'EJEMPLO CICLO WHILE

        dim respuesta as integer

        respuesta = 1

        While (respuesta = 1)

            dim opcion as integer 

            Console.WriteLine("Ingrese una opcion")

            opcion = Console.ReadLine()

            Select (opcion)

            case 1

                'instrucciones necesarias para realizar la opcion 1

                Console.WriteLine("Selecciono la opcion 1")

                'Verificar si desea continuar en el programa

                Console.WriteLine("Desea continuar 1. si 2. no")

                respuesta = Console.ReadLine()

            case else

                Console.WriteLine("Selecciono la opcion 2")

                'Verificar si desea continuar en el programa

                Console.WriteLine("Desea continuar 1. si 2. no")

                respuesta = Console.ReadLine()

            End select

        End while

    End Sub

End Module