4. Программный код

Private Sub Command1_Click()

End

End Sub

'Применение функции PV.

Private Sub Command2_Click()

Dim Выплата As Currency, Кредит As Currency, Прирост As Single

Text1.Text = " Определение величины кредита при известной процентной ставке "

p = InputBox("Ввести проц. ставку - rate(в процентах - годовых)", , "Ввод в %, например, 12")

k = InputBox("Ввести количество периодов - nper", , "Ввод в мес.")

c = InputBox("Ввести ежемесячную выплату в банк- mpt", , "Ввод в руб. со знаком _ минус")

p = p / 1200 ' - это 12% годовых т.е 12%/(100*12мес.)

Кредит = PV(p, k, c): Кредит = Int(Кредит * 100) / 100

Text1.Text = "Величина возможного кредита составит " _

& Str(Кредит) & "р."

Print "rate="; p, " nper="; k; " mpt ="; c

Print

Кредит = PV(p, k, -c)

Print "PV(rate,nper,mpt)="; Кредит

Print "Величина возможного кредита составит Кредит ="; Кредит

End Sub

'Применение функции Pmt.

Public Sub пуск_Click()

Dim Выплата As Currency, Кредит As Currency, Прирост As Single

Print "Pmt - выплата; pv - кредит;";

Print "nper - число платежей; rate - прирост."

Print

Text1.Text = " Определение ежемесячной выплаты при взятии кредита "

p = InputBox("Ввести проц. ставку (в процентах - годовых)",,"Ввод в %, напр-р, 12 ")

k = InputBox("Ввести количество периодов", , "Ввод в мес.")

c = InputBox("Ввести величину кредита", , "Ввод в руб.")

p = p / 1200 ' - это 12% годовых т.е 12%/(100*12мес.)

Выплата = Pmt(p, k, c): Выплата = CInt(Выплата * 10) / 10

Text1.Text = "Ежемесячные выплаты составят " _

& Str(Выплата) & "р."

Print "rate="; Int(p * 10000) / 10000, "nper="; k, "pv="; c

Print "Pmt(rate,nper,pv)="; Выплата

Print

Выплата = Pmt(0, 1, 120, 150000)

End Sub

Запустить программу и ввести исходные данные.

далее,

далее,

5. Ответ

Литература

1. Волченков Н.Г. Программирование на Visual Basic 6: В 3 ч.– М.: ИНФРА–М, 2000. – 288 с.

2. Крейг Дж. К., Уэбб Дж. Microsoft Visual Basic 5.0. Мастерская разработчика: Пер. с англ. – М.: Изд. отд. «Русская редакция» ТОО «Channel Trading Ltd», 1998. – 616 с.

Учебное издание

Голубев Федор Кузьмич, Семенов Виктор Николаевич

Сборник задач

Проектирование Windows - приложений

(Задачи, решения и ответы)

Редактор Т.В. Бродская

Корректура Т.В.Бродской

Подписано в печать . Формат 60х84/16.

Бумага офсетная. Ризография. Усл. печ. л. .

Уч.-изд. л. . Тираж 100 экз. Изд. № . Заказ №

Ростовский государственный университет путей сообщения.

Ризография РГУПС.

Адрес университета: 344038, г. Ростов-на-Дону, пл. им. Ростовского стрелкового полка народного ополчения, 2.