PARCIAL VISUAL

Ejercicios visual basic

1) Una telefónica le falta por cobrar X cantidad de clientes y le han pedido que elabore un programa que calcule el total a pagar de cada cliente por llamada teniendo en cuenta que:
TOTAL A PAGAR = CANTIDAD DE MINUTOS*VALOR MINUTO
Si la cantidad de minutos es mayor a una hora obtendrá un descuento del 10% , de lo contrario no obtiene descuento:

                                      DESARROLLO

Private Sub CommandButton1_Click()
Dim x, cm, vm, tp, dsc, desct As Long
x = Val(InputBox("Cantidad de clientes"))
For i = 1 To x
cm = Val(InputBox("Cantidad de minutos"))
vm = Val(InputBox("Valor de el minuto"))
tp = cm * vm
If cm >= 60 Then
dsc = (tp * 10) / 100
desct = tp - dsc
MsgBox ("El total a pagar por la llamada es" & desct)
Else
dsc = 0
desct = tp
MsgBox ("El total a pagar por la llamada es" & desct)
End If
Next i



2) Una empresa dará un incentivo que corresponde a un aumento del 25% del sueldo a sus empleados y le han pedido a usted que elabore un programa que muestre la suma total de todos los incentivos brindados a sus 3 empleados, si dicha suma sobrepasa los $300.000 entonces muestre un mensaje que diga "monto excedido", de lo contrario muestre "Aprobado"

                                           DESARROLLO

Private Sub CommandButton1_Click()
Dim sul, icn, icnm, acum As Long
For i = 1 To 3
sul = Val(InputBox("Digite el sueldo de el empleado"))
icn = (sul * 25) / 100
icnm = sul + icn
acum = acum + icnm
Next i
If acum > 300000 Then
MsgBox ("Monto exedido" & acum)
Else
MsgBox ("Aprobado" & acum)
End If