Ejercicio VB.NET: Calcular descuento

Dado un monto calcular el descuento considerando que por encima de 20000 el descuento es el 10% y por debajo de 20000 el descuento es el 2%.

Solución:



Module Module1

    Sub Main()
        Dim monto, descuento As Double

        Console.WriteLine("Ingrese el monto")
        monto = Console.ReadLine

        If monto > 20000 Then
            descuento = monto * 90 / 100
            Console.WriteLine("El monto con un 10% de descuento es de: $" & descuento)
        Else
            descuento = monto * 98 / 100
            Console.WriteLine("El monto con un 2% de descuento es de: $" & descuento)
        End If

        Console.ReadKey()
    End Sub

End Module