Imports System

'CREAR UNA APLICACION QUE SOLICITE UNA CANTIDAD EN Q. Y HAGA LA CONVERSION A $ O VICEVERSA 

'REALIZADO POR:  JOSE ORTIZ 

Public Module Module1

    Public Sub Main()

        DIM RESPUESTA AS INTEGER

        DIM OPCION AS INTEGER 

        RESPUESTA = 1 

        WHILE RESPUESTA = 1

            Console.WriteLine("1. CONVIERTE DE QUETZALES A DOLARES")

            CONSOLE.WriteLine("2. CONVIERTE DE DOLARES A QUETZALES")

            OPCION = CONSOLE.ReadLine()

            SELECT OPCION 

            CASE 1

                CONSOLE.WriteLine("INGRESE CANTIDAD EN QUETZALES")

                CONSOLE.WriteLine("INGRESE TIPO DE CAMBIO: ")

                DIM TIPODECAMBIO AS DOUBLE 

                TIPODECAMBIO = CONSOLE.ReadLine()

                DIM Q, D AS DOUBLE 

                Q = CONSOLE.ReadLine()

                D = Q / TIPODECAMBIO

                CONSOLE.WriteLine("LA CANTIDAD EN DOLARES ES: " &D)

                CONSOLE.WriteLine("DESEAN CONTINUAR: 1.SI, 2.NO ")

                RESPUESTA = CONSOLE.ReadLine()

            CASE 2

                CONSOLE.WriteLine("INGRESE CANTIDAD EN DOLARES")

                CONSOLE.WriteLine("INGRESE TIPO DE CAMBIO: ")

                DIM TIPODECAMBIO AS DOUBLE

                TIPODECAMBIO = CONSOLE.ReadLine()

                DIM Q, D AS DOUBLE 

                Q = CONSOLE.ReadLine()

                D = Q * TIPODECAMBIO

                CONSOLE.WriteLine("LA CANTIDAD EN QUETZALES ES: " &D)

                CONSOLE.WriteLine("DESEAN CONTINUAR: 1.SI, 2.NO ")

                RESPUESTA = CONSOLE.ReadLine()

            END SELECT 

        END WHILE 

    End Sub

End Module