Ejercicio VB.NET: Crear la factura de una compra calculando el IVA y un descuento

Escribir el programa que permita emitir la factura correspondiente a una compra de un artículo determinado, del que se adquieren una o varias unidades, el ingreso termina cuando se digita como precio del articulo un valor cero. El IVA es del 19% y si el precio bruto  (precio venta  más IVA) es mayor de $18000 se debe realizar un descuento del 5%.

Solución:


Module Module1

    Sub Main()
        Dim precio, suma, bruto, descuento As Double

        suma = 0
        Console.WriteLine("Para detenet el ciclo ingrese un 0")
        Do
            Console.WriteLine("Ingrese el precio del producto")
            precio = Console.ReadLine
            suma = suma + precio
        Loop While precio <> 0

        bruto = suma * 119 / 100

        If bruto <= 18000 Then
            Console.WriteLine("El valor de la compra es de: $" & bruto)
        Else
            descuento = bruto * 95 / 100
            Console.WriteLine("El valor de la compra es de: $" & descuento)
        End If

        Console.ReadKey()
    End Sub

End Module