Algunos problemas sobre el uso de VB para escribir fórmulas de cálculo de hipotecas

Subcomando privado 1_Click()

Dim a es el doble 'monto total de la hipoteca'

Dim i como el doble 'tasa de interés de la hipoteca'

Dim n es el doble 'número de períodos hipotecarios'

Dim h es el doble 'pago mensual de la hipoteca'

Dim Y es el doble 'tasa de interés hipotecaria'

Atenuar z como doble "precio de centralita"

Atenuar s como doble "índice de pago inicial"

Atenuar d como doble "investigación de crédito"

Atenuar f como Doble "depósito"

Dim b es el doble de "tarifa de gestión"

Dim c es el doble de 'tarifa de instalación inicial de gps'

Dim e es el doble de 'tarifa de uso de gps' '

Dim j como doble "comisión de gestión"

Dim k como doble 'precio de compra de reserva'

Como doble "seguro"

Dim p es Doble 'Primer pago total'

Y = Val(Text2. Text)

n = Val(Combo2. Text)

Si n & ltentonces13

Texto11. Texto = 960

Otro

Texto11. Texto = 1920

Terminará si...

z = Val(Texto 5. Texto)

s = Val(Texto 6. Texto)< /p >

d = Val(Combo1.Texto)

b = Val(Texto8.Texto)

c = Val(Texto10.Texto)

e = Val(Texto11.Texto)

j = Val(Texto12.Texto)

k = Val(Texto13.Texto)

g = Val( Texto18. Texto)

f = z * s / 100

a = z - f

i = Y / 100

h = a *(I/12 *(1+I/12)^ n)/((1+I/12))'^ n-1)

Texto1. Texto = a

SMS 3. Texto = f

Texto 4. texto = formato(h, "0.00")

Texto 8. Texto = a * 0.01

Texto16. Texto = z * 0.1

Texto14. texto = formato(h * n - a, "0.00")

Texto15. text = p+z * 0.1+e+d+j+g+k+c+b+f

Conector final

Subcomando privado 2_Click()

Texto1. texto = " "

Texto2. Texto = " "

SMS 3. texto=" "

Texto 4. Text = " "

Conector final

Subform_Load() privado

Dim X es un número entero, q es un número entero

Para X = 1500 a 5000 pasos 500

Combo1. Agregar cadena de elemento (X)

Siguiente AddItem string(q)

Siguiente pregunta

Texto1. texto = " "

Texto2. Texto = " "

SMS 3. texto=" "

Texto 4. texto=" "

Texto 6. texto = " "

Texto10.

Texto = "1880 "

Texto12. Texto = "500 "

Texto13. Texto = "500 "

Texto 2. Texto = "6.68 "

Texto 6. Text = "10 "

Conector final

Subtexto privado 10_Change()

Texto10. Texto = "1880 "

Conector final

Subtexto privado12_Change()

Texto12. Texto = "500 "

Conector final

Subtexto privado13_Change()

Texto13. Texto = "500 "

Conector final

Subtexto privado2_Change()

Texto2. Texto = "6.68 "

Conector final

Subtexto privado 6_Change()

Texto 6. Texto = "10 "

Conector final