Pollos

Ejercicios.

1). Se requiere calcular la comisión para algunos vendedores. Se tienen los siguientes datos : código del vendedor, nombre, valor de la venta. Pero para cada comisión se parte de lossiguientes principios:
a) Ventas inferiores a $200000 el 5%
b) Ventas entre 200000 y 500000 el 10%
c) Ventas superiores a 500000 el 20%

Dim codv, nomven As String
Dim valven, cmsi AsCurrency

Private Sub CommandButton1_Click()
codv = InputBox("codigo:", "inemet")
nomven = InputBox("nombre:", "inemet")
valven = InputBox("valor venta:", "inemet")

End Sub

Private SubCommandButton2_Click()
If valven < 200000 Then
cmsi = valven * 0.05
Else
If valven > 200000 And velven <= 500000 Then
cmsi =valven * 0.1
Else
cmsi = val_vta * 0.2
End If
End If

Label6.Caption = codv
Label7.Caption = nomven
Label8.Caption = valvenLabel9.Caption = cmsi
Rem ubicar cursor en A1
Range("A1").Select
Rem control flecha abajo
Selection.End(xlDown).Select
Rem bajar la linea
ActiveCell.Offset(1, 0).Range("A1").Select
Rem pasandolas datos
ActiveCell = cod_ven
ActiveCell.Offset(0, 1) = nomven
ActiveCell.Offset(0, 2) = valven
ActiveCell.Offset(0, 3) = cmsi

End Sub

Private Sub CommandButton3_Click ()
Label6.Caption =" "
Label7.Caption = " "
Label8.Caption = " "
Label9.Caption = " "

End Sub

Private Sub UserForm_Click()
End Sub

2). Se requiere calcular la ganancia para algunos compradores. setienen los siguientes datos : edad del comprador, nombre, valor de la compra. Pero para cada ganancia se parte de los siguientes principios:
a) compras inferiores a $700000 el 5%
b) comprasentre 700000 y 900000 el 10%
c) compras superiores a 900000 el 20%

Dim ed, nomb As String
Dim valcom, gns As Currency

Private Sub CommandButton1_Click()
ed = InputBox("edad:", "inemet")...