2 Часть

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

Объект	Свойство	Значение
Рамки	Caption	Сегодня
	Caption	Дата рождения (дд.мм.гг)
	Caption	(отсутствует)
	Caption	Сколько прожил дней
	Caption	Ваш возраст
Метки	Name	LblDay
	Name	LblD
	Name	LblM
	Name	LblY
	Name	LblResult
	Name	LblLet
Командная кнопка	Name	CmdPusk
	Caption	Пуск
Текстовое окно	Name	TxtDataR
	Text	(отсутствует)

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

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

Dim dd, dr As Date

dd = Date

dr = TxtDataR.Text

LblDay.Caption = dd

LblD.Caption = Day(dr)

LblM.Caption = Month(dr)

LblY.Caption = Year(dr)

LblResult.Caption = dd - dr

LblLet.Caption = Format(dd - dr, "yy")

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

Лабораторно-практическая работа №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. В разделе общих объявлений набрать:

Dim r As Single

Dim p, v As Currency

Dim n As Integer

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. Самостоятельно добавьте на форму еще одну командную кнопку и создайте для нее программный код, который удаляет содержимое в текстовых окнах.