Программа расчета суммы ежемесячного платежа - VB
Формулировка задачи:
Банк выдает ссуды гражданам на L лет под G% годовых на приобретение недвижимости. Должник обязан ежемесячно выплачивать равными долями долг вместе с процентами. Составить программу расчета суммы ежемесячного платежа для различных размеров ссуды, исходя из условия, что указанная в договоре ставка должна совпадать с месячной эффективной ставкой потока платежей, т.е. должно выполняться условие:
где С – ссуда, предоставляемая банком, руб.;
Р – ежемесячные платежи, руб.;
t – месяц выплаты, мес.;
N – количество месяцев выплаты долга, мес.;
r – месячная ставка, доли ед.;
Из формулы [1] получаем формулы расчета суммы ежемесячного платежа: (где G – годовая ставка, %.)
N=L*12 (где L – количество лет, на которые выдана ссуда.)
Годовая ставка G и количество лет L вводятся пользователем.
Помогите пожалуйста с кодом на бейсике .
Решение задачи: «Программа расчета суммы ежемесячного платежа»
textual
Листинг программы
Private Sub CommandButton1_Click()
l = InputBox("годы")
n = l * 12
g = InputBox("процентная ставка")
r = g / 100 / 12
c = InputBox("ссуда")
s = 0
For i = 1 To n
s = s + 1 / (1 + r) ^ i
Next i
MsgBox "Плати - " & Int(c / s) & ", Доход банка спекулянта в месяц или ваша переплата - " & Int(c / s - c / n)
End Sub