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

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

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

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

Дата добавления: 2015-11-16