QUIZ SEGUNDO CORTE
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim ventas As DecimalDim tipo As StringDim basico As DecimalDim antiguedad As SingleDim comision As DecimalDim sueldo As Decimalventas = TextBox1.Text
tipo = TextBox2.Text
basico = TextBox3.Text
antiguedad = TextBox4.Text
If (tipo = "medio") ThenIf (ventas < 5000000) Thencomision = ventas * 0.15
Elsecomision = ventas * 0.3
End IfEnd IfIf (tipo = "completo") ThenIf (ventas < 5000000) Thencomision = ventas * 0.1
Elsecomision = ventas * 0.2
End IfEnd IfIf (antiguedad <= 0) Thenbasico = basico * 0.4
If (antiguedad = 3) Thenbasico = basico * 0.6
Elsebasico = basico * 1
End IfEnd Ifsueldo = basico + comision
TextBox5.Text =
"Sueldo: " + CStr(sueldo)End Sub
