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