Imports System

Public Module Module1

    dim valorventa as double

    dim descuento as double

    dim comision as double

    dim valorcobro as double

    Public Sub Main()

        Console.WriteLine("Cálculo de Descuento y Comisión")

        console.WriteLine("Realizado por Ana Camila Ramírez Trejo ")

        console.WriteLine("Ingrese el valor de la venta " )

        valorventa = console.ReadLine()

        'Detalle de Rangos'

        ' Rango           -     Descuento      - Comisión '

        ' De 100 a 500              5%              3%'

        ' De 500.01 a 1,000         7%              4%'

        ' De 1,000.01 a 2,000       10%             5%'

        ' Más de 2,000.01           12%             6%'

        if valorventa < 100 then

                descuento  = 0.00

                comision   = 0.00

                valorcobro = valorventa 

            else if valorventa < 500 

                descuento  = valorventa * 0.05

                comision   = valorventa * 0.03

                valorcobro = valorventa - descuento

            else if valorventa < 1000 

                descuento  = valorventa * 0.07

                comision   = valorventa * 0.04

                valorcobro = valorventa - descuento

            else if valorventa < 2000 

                descuento  = valorventa * 0.1

                comision   = valorventa * 0.05

                valorcobro = valorventa - descuento

            else

                descuento  = valorventa * 0.12

                comision   = valorventa * 0.06

                valorcobro = valorventa - descuento

        end if

        'Impresión de Resultados'

        if valorventa  < 0

            console.WriteLine("ERROR: El valor de cálculo debe ser mayor que 0" )   

        else

            console.WriteLine("Los valores de la operación son:" )      

            console.WriteLine("Valor de Venta: Q." &valorventa)     

            console.WriteLine("Descuento: Q." &descuento)       

            console.WriteLine("Valor a Cobrar: Q." &valorcobro) 

            console.WriteLine("Comisión: Q." &comision) 

        end if                  

    End Sub

End Module

​