Ayuda con codigo de escript
Publicado por Otto (1 intervención) el 22/06/2015 05:33:32
Hola Amigos no se si me podrian ayudar con este codigo:
Quiero que solo me muestre el interes pagado por cada año que se aya declarado pero con la ultima linea de codigo me repite todo el ciclo de nuevo y los valores se alteran, ya lo habia echo de otra manera pero ya habiendo declarado a cuantos años son este es el codigo y quiero que me haga la misma funcion agradeceria la ayuda que me pudieran dar.
perdon por las variables demas pero las declare por si la ocupaba mas adelante
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim resul,C,re,res,result,n,s,a
C=inputbox("Ingrese La Cantidad del Prestamo")
a=inputbox("Ingrese La cantidad de Años")
for n=1 to ai=0.055
t1=C*(1+i)^n
t2=t1-C
msgbox("Total Interes a Pagar al Final: " & t1)
msgbox("La suma total a pagar es de: " & t2)
C=cint(C)
s=cint(s)
s=s+s+C
re=s*i
msgbox ("Interes Pagado del año: " & n & " es " & re & " ")
next
Quiero que solo me muestre el interes pagado por cada año que se aya declarado pero con la ultima linea de codigo me repite todo el ciclo de nuevo y los valores se alteran, ya lo habia echo de otra manera pero ya habiendo declarado a cuantos años son este es el codigo y quiero que me haga la misma funcion agradeceria la ayuda que me pudieran dar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim resul,C,re,res,result
C=inputbox("Ingresa la Cantidad de Prestamo")
resul=C*(1+0.055)^3
resul1=resul-C
msgbox("La cantidad a pagar despues de Tres años es: " & resul)
msgbox("La suma total a pagar es de: " & resul1)
I1=C*0.055
msgbox("El interes del primer año es: " & I1)
I1=cint(I1)
I2=C+I1
re=I2*0.055
msgbox("El interes del Segundo año es: " & re)
re=cint(re)
I1=cint(I1)
I3=C+I1+re
res=I3*0.055
msgbox("El interes del Tercer año es: " & res)
perdon por las variables demas pero las declare por si la ocupaba mas adelante
Valora esta pregunta
0