Ejemplos de programación VB

Private Sub Form_Activate()

'El período de 1 año es 2,25, el período de 2 años es 2,43, el período de 3 años es 2,70 y el período de 5 años es 2,88 (sin incluir 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 total y los intereses de ""; ss(x, 5, x5)

Imprimir "② Deposite una vez durante 3 años, una vez durante 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(ss(x, 3 , x3), 1, x1), 1, x1)

Imprimir "④ Deposite dos veces por 2 años, una vez por 1 año, y el capital total y los intereses vencerán después de 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 capital total y los intereses adeudados después de 5 años"; ss( ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)

Imprima "⑥ deposite cinco veces durante 1 año y venza después de 5 años Capital e intereses totales"; ), 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

Sub final