Aplicación Nº 6 (Descuento por Compra)

Un restaurante ofrece un descuento del 10% para consumos entre $ 30.00 y $ 50.00; un descuento del 20% para consumos mayores a $ 50.00; para todos los demás casos no se aplica ningún tipo de descuento. Elaborar una aplicación que permita determinar el importe a pagar por el consumidor. El diseño de la interfaz Es el Siguiente:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim _compra As Integer
        _compra = CInt(Me.TextBox3.Text)
        While _compra > 30 And _compra < 50
            Dim _descuento1 As Double
            Dim _total1 As Double
            _descuento1 = _compra * 10 / 100
            _total1 = _compra - _descuento1
            Me.TextBox2.Text = _descuento1.ToString
            Me.TextBox1.Text = _total1.ToString
        End While

        If _compra > 50 Then
            Dim _descuento2 As Double
            Dim _total2 As Double
            _descuento2 = _compra * 20 / 100
            _total2 = _compra - _descuento2
            Me.TextBox2.Text = _descuento2.ToString
            Me.TextBox1.Text = _total2.ToString
        End If
        If _compra < 30 Then
            Me.TextBox1.Text = _compra.ToString
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Clear()
        Me.TextBox2.Clear()
        Me.TextBox3.Clear()
    End Sub

End Class