Visual Basic - Ayuda con codigo de escript

Life is soft - evento anual de software empresarial
   
Vista:

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:

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 a
i=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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder