Ejemplos de programación VB

Private Sub Form_Activate()

'El plazo de 1 año es 2,25%, el plazo de 2 años es 2,43%, el plazo de 3 años es 2,70%, el plazo de 5 años es 2,88 % (excluido el interés compuesto) . Hoy hay 0.0288

Dim x As Double

x = Val(InputBox(""))

Print "①Deposita una vez durante 5 años y vence después de 5 años El capital y los intereses totales"; ss(x, 5, x5)

Imprimir "②Deposite una vez por 3 años, una vez por 2 años, y el capital total y los intereses vencerán después de 5 años"; ss (ss(x, 3, x3), 2, x2)

Print "③Deposite una vez por 3 años, dos veces por 1 año, y el capital total y los intereses vencerán después de 5 años"; ss(ss(x, 3, x3), 1, x1), 1, x1)

Print "④Deposite dos veces por 2 años y una vez por 1 año, y el capital total y los intereses vencerán después 5 años"; ss(ss(ss (x, 2, x2), 2, x2), 1, x1)

Print "⑤Deposite una vez por 2 años, tres veces por 1 año y el total el capital y los intereses vencerán después de 5 años"; ss( ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Print "⑥ deposite cinco veces durante 1 año y venza después de 5 años Capital total e intereses"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1 , x1)

End Sub

Función privada ss(ByVal a como doble, b como entero, c como doble) como doble

ss = a + a * c * b

Función final

Sub privada Form_Load()

AutoRedraw = True

Fin sub