Calcular el monto de descuento de una compra Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que dado el monto de una compra calcular el descuento considerado:
descuento es 20% si el monto es mayor a 100 soles
descuento es 10% si el monto es mayor a 50 soles y menor o igual a 100 soles
no hay descuento si el monto es menor o igual a 50 soles
Solución

• Entrada: 100

• Salida: 90

Codigo Fuente en Visual Basic

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim N As Integer
        Dim monto As Double
        N = TextBox1.Text
        If (N > 100) Then
            monto = N - (N * 0.2)
            TextBox2.Text = Trim(monto)
        Else
            If (N <= 100 And N > 50) Then
                monto = N - (N * 0.1)
                TextBox2.Text = Trim(monto)
            Else
                TextBox2.Text = Trim(N)
            End If
        End If
    End Sub
End Class

Descargar Proyecto Visual Basic