Imports System

Public Module Module1

    dim opcion as integer

    dim cliente as integer

    dim correo as string

    dim opcion1 as integer

    dim nrotarjeta as string

    dim vtotarjeta as integer

    dim codigoseguridad as integer

    Public Sub Main()

        Console.WriteLine("¡Bienvenido al proveedor de internet!")

​

        Do

        Console.WriteLine("Ingrese la opción que desea: ")

            Console.WriteLine("1: Comunicarse con soporte técnico - 2: Pedir una copia de la factura - 3: Pagar la factura - 4: Colgar")

        opcion = console.ReadLine()

        Select case opcion

        Case 1

                Console.WriteLine("Ingrese por favor su número de cliente")

                cliente = console.ReadLine()

                Console.WriteLine("El número de cliente ingresado es: " & cliente)

                Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")

                opcion1 = console.ReadLine()

                IF opcion1 = 1 then

                    Console.WriteLine("Aguarde un instante en línea, por favor. Su llamado sera derivado a un operador")

                else

                    Console.WriteLine("Ingrese nuevamente el numero de cliente")

                    cliente=Console.ReadLine()

                    Console.WriteLine("El número de cliente ingresado es: " & cliente)

                    Console.WriteLine("Aguarde un instante en línea, por favor. Su llamado sera derivado a un operador")

                end if      

        Case 2

                Console.WriteLine("Ingrese su correo electrónico")

                correo = console.ReadLine()

                Console.WriteLine("El correo ingresado es: " & correo)

                Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")

                opcion1 = console.ReadLine()

                IF opcion1 = 1 then

                    Console.WriteLine("La copia de su factura sera enviada")

                else

                    Console.WriteLine("Ingrese nuevamente elcorreo electrónico")

                    correo=Console.ReadLine()

                    Console.WriteLine("Elcorreo ingresado es: " & correo)

                    Console.WriteLine("La copia de su factura sera enviada")

                end if      

        Case 3

                Console.WriteLine("Ingrese por favor su número de cliente")

                cliente = console.ReadLine()

                Console.WriteLine("El número de cliente ingresado es: " & cliente)

                Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")

                opcion1 = console.ReadLine()

                IF opcion1 = 1 then

                    Console.WriteLine("Ingrese por favor su número de tarjeta")

                    nrotarjeta = console.ReadLine()     

                    Console.WriteLine("Ingrese por favor el vencimiento de su tarjeta")

                    vtotarjeta = console.ReadLine() 

                    Console.WriteLine("Ingrese por favor el código de seguridad de su tarjeta")

                    codigoseguridad = console.ReadLine()

                    Console.WriteLine("Su número de tarjeta es: " & nrotarjeta)

                    Console.WriteLine("El vencimiento de la tarjeta es: " & vtotarjeta)

                    Console.WriteLine("El código de seguridad de su tarjeta es: " & codigoseguridad)

                    Console.WriteLine("Ingrese 1 si es correcto o 2 si desea corregir")

                    opcion1 = console.ReadLine()                    

                    IF opcion1 = 1 then

                        Console.WriteLine("Su pago aceptado")

                    else

                        Console.WriteLine("Alguno de los datos es incorrecto. Ud. será derivado al menú principal.")

                    end if

                else

                    Console.WriteLine("Código de cliente inválido. Ud. será derivado al menú principal.")

                end if                      

        Case 4

                Console.WriteLine("¡Muchas gracias por comunicarse!")

        Case else

            Console.WriteLine("El número ingresado es incorrecto")

        End Select

        Loop until opcion=4

    End Sub

End Module