За какой срок сумма вложенных денег увеличиться не менее чем в K раз - VB
Формулировка задачи:
Клиент поместил в банк S рублей. За год банк увеличивает сумму помещенных в него денег на P процентов. Написать программу, которая определит, за какой срок сумма вложенных денег увеличиться не менее чем в K раз.
Решение задачи: «За какой срок сумма вложенных денег увеличиться не менее чем в K раз»
textual
Листинг программы
Option Explicit
Dim S As Currency, P As Single, K As Single
Dim skokaLet As Single ' Сколько понадобится лет
Dim sumTek As Currency ' Сумма на счету
Dim sumGod As Currency ' На сколько увеличивается вклад в год
Private Sub Command1_Click()
S = InputBox("Введите сумму", , 1000)
P = InputBox("Введите проценты", , 7)
K = InputBox("Во сколько раз должна увеличится сумма?", , 3)
sumTek = S
Do While sumTek < S * K
sumGod = sumTek / 100 * P
sumTek = sumTek + sumGod
skokaLet = skokaLet + 1
Loop
Print FormatCurrency(sumTek)
Print "Понадобится "; skokaLet; " Лет" ' Сколько понадобится лет
End Sub