Parcial visual

Primer Problema
Una telefonica le falta cobrar a x cantidad de clientes y le han pedido que elabore un programa que calcule el total a pagar de cada cliente por la llamada teniendo en cuenta que:
Total a pagar = Cantidad de minutos * Valor del minuto
Si la cantidad de minutos es mayor a una hora obtendra un descuento del 10%, de lo contrario no obtiene el descuento

SOLUCION:
Dim cc, tp, cm, vm, acumulador, des, des1 As Integer
acumulador = 1
cc = Val(InputBox("cuantos clientes son"))
cm = Val(InputBox("cuantos minutos gasto"))
For acumulador = 1 To cc
vm = Val(InputBox("cuanto es el valor de cada minuto "))
acumulador = acumulador + 1
tp = cm * vm
If cm > 60 Then
des = cm - (10 / 100)
des1 = tp - des
MsgBox ("el valor a pagar es de:") & des1
Else
MsgBox ("no tiene descuento") & tp
End If
End Sub



Segundo problema
Una empresa dara un incentivo que corresponde a un aumento del 25% del sueldo de 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 300000 entonces muestre  un mensaje que diga "Monto excedido, de lo contrario muestre "Aprobado"


SOLUCION:
Dim s, st, acu, i, sn As Integer
acu = 1
For acu = 1 To 3
s = Val(InputBox("digite los sueldos"))
acu = acu + 1
sn = s + (25 / 100)
i = s - sn
Next i
st = i + i + i
If st > 300000 Then
MsgBox ("Monto excedido")
Else
MsgBox ("Aprobado")
End If
End Sub