DESARROLLO DEL QUIZ

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim nom As String

        Dim sueldo As Decimal

        Dim ventas As Decimal

        Dim pension As Decimal

        Dim salud As Decimal

        Dim salario As Decimal

        Dim comisiones As Decimal

        nom = TextBox1.Text

        sueldo = TextBox2.Text

        ventas = TextBox3.Text

        salario = sueldo + comisiones

        comisiones = ventas * 15 / 100

        pension = salario * 12 / 100

        salud = salario * 14 / 100

        TextBox6.Text = nom + CStr(salario) + vbCrLf + "pension" + CStr(pension) + vbCrLf + "salud" + CStr(salud) + CStr(sueldo)

  End Sub

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

        Dim nom As String

        Dim sueldo As Decimal

        Dim ventas As Decimal

        Dim pension As Decimal

        Dim salud As Decimal

        Dim salario As Decimal

        Dim comisiones As Decimal

        nom = TextBox1.Text

        sueldo = TextBox2.Text

        ventas = TextBox3.Text

        salario = sueldo + comisiones

        comisiones = ventas * 15 / 100

        pension = salario * 12 / 100

        salud = salario * 14 / 100

        TextBox6.Text = nom + CStr(salario) + vbCrLf + "pension" + CStr(pension) + vbCrLf + "salud" + CStr(salud)