Porcentaje

Crearemos un programa que calcule el porcentaje

Creamos el Form con:


3 Textbox
3 radiobutton
1 button

Luego le damos click al Button calcularY comenzamos a programar


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        
Dim producto As Integer

        Dim descuento As Integer

        Dim Total As Integer

        producto = TextBox1.Text

        If RadioButton1.Checked = True Then

            descuento = producto * 0.25

        ElseIf RadioButton2.Checked = True Then

            descuento = producto * 0.5

        ElseIf RadioButton3.Checked = True Then

            descuento = producto * 0.1

        End If

        TextBox2.Text = descuento

        Total = producto - descuento

        TextBox3.Text = Total
    End Sub