Console.WriteLine("Ingrese sueldo básico: ")
Dim sueldobasico as Double = Console.ReadLine()
Console.WriteLine("Ingresos valor de ventas mensuales: ")
Dim ventamensual as Double = Console.ReadLine()
Dim sueldototal as Double
If ventamensual >= 1000 and ventamensual < 2000 Then
sueldototal = sueldobasico + (ventamensual * 0.07)
If ventamensual >= 2000 and ventamensual < 3000 Then
sueldototal = sueldobasico + ventamensual * 0.11
If ventamensual >= 3000 and ventamensual < 4000 Then
sueldototal = sueldobasico + ventamensual * 0.17
Else If ventamensual >= 4000 Then
sueldototal = sueldobasico + ventamensual * 0.22
sueldototal = sueldobasico
Console.WriteLine("El sueldo total es: "& sueldototal &"$")