Постановка задачи

Date: 2015-10-07; view: 519.

Пример программы с использованием пользовательских функций и элемента комбинированный список

End Sub

Private Sub Form_Load()

End Sub

Private Sub OptLin_Click()

End Sub

‘ Обработчик события переключателя «Линейная амортизация»

LabelPer.Visible = False‘Отключение видимости для элемента LabelPer

TextPer.Visible = False‘Отключение видимости для элемента TextPer

If OptLin.Value Then OptGod.Value = False

‘ Обработчик события инициализации формы

LabelPer.Visible = False

TextPer.Visible = False

Рис. 5.6. Листинг программы «Вычисление величины амортизации»

Требуется разработать программу вычисления накопленной суммы по выданному кредиту (или вкладу) с использованием формулы простых процентов.

Расчет накопленной суммы реализовать в виде пользовательской функции. Внешний вид пользовательского интерфейса приведен на рис. 5.7.

Рис. 5.7. Вид пользовательской формы программы «Кредит»

Накопленная сумма по выданному кредиту (или вкладу) вычисляется по формуле:

).

Здесь:

S – значение накопленной суммы;

P – величина кредита;

i – номинальная годовая процентная ставка;

t – срок кредита (может задаваться в годах, кварталах, месяцах, днях);

m – коэффициент, значение которого зависит от способа задания срока кредита (m=1, если срок кредита задан в годах; m=4, если срок кредита задан в кварталах; m=12, если срок кредита задан в месяцах; m=360 или 365, если срок кредита задан в днях).

Контрольные данные для расчета:

исходные данные

Величина кредита 1000

Годовая процентная ставка 10%

Срок кредита 12 месяцев

результат

Величина накопленной суммы 1100