Question

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

Answer 1

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