un empresario invierte $ 10000 en bonos que pagan un interés anual del 8% si invierte las ganancias en la compra de nuevos bonos que capital tendrá al cabo de 10 años



Respuesta :

10000   AÑO= 0
10800
   AÑO=1
11664
   AÑO=2
12597,12
   AÑO=3
13604,8896
   AÑO=4
14693,2808
   AÑO=5
15868,7432
   AÑO=6
17138,2427
   AÑO=7
18509,3021
   AÑO=8
19990,0463 
   AÑO=9
21589,25 
   AÑO=10


Para resolverlo utilice el siguiente algoritmo
Sub años()
y = 10000
Range("a1").SelectActiveCell.FormulaR1C1 = y

For i = 1 To 10
y = y + y * 0.08
ActiveCell.Offset(0, 1).SelectActiveCell.FormulaR1C1 = y
Next i
MsgBox (y)
End Sub