Ejercicio Programacion Tipo de Contrato‏ Sueldo Ventas‏

Ejercicio Tipo de Contrato

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim ventas As Decimal
Dim basico As Decimal
Dim tipo As String
Dim comision As Decimal
Dim sueldo As Decimal
ventas = TextBox1.Text
basico = TextBox2.Text
tipo = TextBox3.Text
If (tipo = "medio") Then
basico = basico / 2
If (ventas < 3000000) Then
comision = ventas * 0.03
sueldo = basico + comision
Else
If (ventas < 7000000) Then
comision = ventas * 0.05
sueldo = basico + comision
Else
comision = ventas * 0.07
sueldo = basico + comision
End If
End If
Else
If (ventas < 7000000) Then
comision = ventas * 0.07
sueldo = basico + comision
Else
If (ventas < 13000000) Then
comision = ventas * 0.09
sueldo = basico + comision
Else
comision = ventas * 0.12
sueldo = basico + comision
End If
End If
End If
TextBox4.Text = "Sueldo: " + CStr(sueldo)
End Sub
End Class