Dim n As Integer

Dim p, v As Currency

Dim r As Single

Порядок выполнения

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 9

Тема: Встроенные функции

Цель: Получить навыки использования финансовых функций

11. Откройте новый проект, установите следующие объекты и измените им свойства

Объект	Свойство	Значение
Рамки	Caption	Годовой прирост (%)
Caption	Число платежей
Caption	Сумма кредита
Caption	Величина выплаты
Текстовые окна	Name	TxtPrirost
	Name	TxtKolWo
	Name	TxtKredit
	Name	TxtViplata
Командные кнопки	Name	CmdPrirost
Caption	Прирост
	Name	CmdViplata
	Caption	Выплата
	Name	CmdKredit
	Caption	Кредит

12. Приведите свою форму в соответствие с образцом

13. В разделе общих объявлений набрать:

14. В окне кода процедуры обработки события Click набрать для объекта cmdViplata

r = Val(TxtPrirost.Text)

n = Val(Txtkolwo.Text)

v = Val(TxtKredit.Text)

r = r / 1200

p = -Pmt(r, n, v)

TxtViplata.Text = Str(p)

15. В окне кода процедуры обработки события Click набрать для объекта cmdKredit

r = Val(TxtPrirost.Text)

n = Val(Txtkolwo.Text)

p = Val(TxtViplata.Text)

r = r / 1200

p = -p

v = PV(r, n, p)

TxtKredit.Text = Str(v)

16. В окне кода процедуры обработки события Click набрать для объекта cmdPrirost

p = Val(TxtViplata.Text)

n = Val(Txtkolwo.Text)

v = Val(TxtKredit.Text)

p = -p

r = 1200 * Rate(n, p, v)

TxtPrirost.Text = Str(r)

17. Проверьте работу программы

18. Самостоятельно добавьте на форму еще одну командную кнопку и создайте для нее программный код, который удаляет содержимое в текстовых окнах.

Дата добавления: 2014-12-25