7. Реализация проекта

1. Запустить на выполнение VBA для создания нового проекта.

2. Построить форму согласно проекту.

3. Дважды щелкнуть на форме и в открывшемся окне кода в заготовку процедуры UserForm_Initialize ввести ее тело (операторы).

4. Дважды щелкнуть на кнопке Расчет и в открывшемся окне кода в заготовку процедуры CmdРасчет_Click ввести соответствующие операторы.

8. Анализ проекта

При старте формы вы можете выбрать сумму кредита из предложенных в CboКредит из списка.

Процедура cmdРасчет_Click предназначена для вычисления суммы кредита с учетом срока, типа кредитора, а так же кредитора с хорошей кредитной историей.

Для определения размера надбавки к сумме использован однострочный оператор If. Размер надбавок к сумме в зависимости от типа кредитора и срока определяется с использованием расширенной блочной формы оператора If, а скидка кредитору с хорошей кредитной историей – с использованием оператора выбора Select Case.

Результат выводится с помощью сообщения, в котором указана сумма и окончательная сумма возврата банку.

9. Выполнение программы и анализ полученных результатов

Требуется рассчитать сумму, которую надо будет возвратить банку, если берется кредит сроком на М месяцев с учетом типа кредитора и кредитора с хорошей кредитной историей. После проведения расчетов, кредитору выдается сообщение о сумме, которую он хочет взять и сумму возврата банку.

Рис.3. Форма при запуске программы

На рис. 3 показана форма при запуске приложения. На ней отображается ComboBox, где из списка можно выбрать сумму кредита.

После выборасуммы кредита, к примеру, «100 000,00», в CboКредит отображается сумма. Это изображено на рис 4.

Рис. 4. Внешний вид формы после выбора суммы кредита

После выбора срока, типа кредитора и нажатия кнопки «Расчет» , появляется сообщение с уведомлением о процентах,скидках,какие имеет или не имеет клиент . Это показано на рис 5.

Рис. 5. Внешний вид формы после нажатия кнопки Расчет

Если кредитор имеет хорошую кредитную историю, то после нажатия выскакивает уведомление. Это показано на рисунке 6.

Рис. 6. Внешний вид формы после окончательных расчетов с учетом того, что кредитор имеет хорошую кредитную историю

Рис. 6. Внешний вид формы после окончательных расчетов

При нажатии на кнопку «Выход» открывается ImputBox, где задается вопрос. При ответе «Да» - форма закрывается, при ответе «Нет» - продолжение выполнения расчетов, если введено что-то иное - сообщение об ошибке. Это показано на рисунке 7.

Рис. 7. Внешний вид формы после нажатия кнопки «Выход»

10.Вывод

Благодаря выполнению данного проекта мы научились создавать приложения, которые могут использоваться при решении различных экономических задач, содержащих разветвляющиеся процессы.

i