DESARROLLO QUIZ EN CALSE

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

Dim ventas AsDecimal

Dim contrato AsString

Dim basico AsDecimal

Dim antiguedad AsString

Dim comisiones AsDecimal

Dim sueldo AsDecimal

        ventas = TextBox1.Text

        contrato = TextBox2.Text

        basico = TextBox3.Text

        antiguedad = TextBox4.Text

If contrato = "completo"Then

If (ventas < 5000000) Then

comisiones = ventas * 10 / 100

Else

                comisiones = ventas * 20 / 100

EndIf

Else

If (contrato = "medio") Then

If (ventas < 5000000) Then

comisiones = ventas * 15 / 100

Else

comisiones = ventas * 30 / 100

EndIf

EndIf

EndIf

If (antiguedad <= 0) Then

            basico = basico * 40 / 100

Else

If (antiguedad = 3) Then

                basico = basico * 60 / 100

Else

                basico = basico * 100 / 100

EndIf

EndIf

sueldo = basico + comisiones

        TextBox5.Text = "su sueldo fue" + vbCrLf + CStr(sueldo)

EndSub

EndClass