Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.72
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.72

Приложение вычисляет с помощью функции ПЗ (РУ) при данной годовой ставке текущий объем вклада. Маргинальная процентная ставка находится как корень уравнения

Текущий объем вклада = размер ссуды.

Программирование в среде Visual Basic for Applications

Данное соотношение является уравнением относительно одной неизвестной величины - процентной ставки. Корень одного уравнения с одной неизвестной находится на рабочем листе с помощью команды Сервис/Подбор параметра или программно посредством метода Соайеек.

Для решения задачи нахождения текущего объема вклада и нахождения маргинальной процентной ставки с помощью редактора пользовательских форм создадим диалоговое окно Маргинальная процентная ставка (рис. 17.1).

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 17.1. Диалоговое окно «Маргинальная процентная ставка»

Рассмотрим, как приведенная ниже программа решает перечисленные выше задачи и что происходит в программе.

UserForm Initialize

1. Активизирует диалоговое окно.

2. Запрещает ввод данных пользователем в поля Текущий объем ссуды и Маргинальная процентная ставка.

3. Назначает клавише Esc функцию кнопки Отмена, а клавише Enter - Вычислить.

4. Связывает с кнопками Вычислить и Отмена всплывающие подсказки

17. Расчет маргинальной процентной ставки_125

Нажатие кнопки Вычислить запускает на выполнение проце-ДУРУ

CommandButtonl _Click

5. Проверяет, являются ли вводимые данные числами. Если хотя бы одно из них не является числом, то на экране отображается соответствующее информационное сообщение с установкой фокуса на поле, где произведен некорректный ввод данных.

6. Проверяет, будет ли ссуда меньше чем возвращаемая сумма денег. Если ссуда больше этой суммы, то отображается сообщение с указанием, насколько ссуда меньше возвращаемой суммы денег (рис. 17.2).

7. Используя финансовую функцию рабочего листа, ПЗ(РУ) вычисляет чистый текущий объем ссуды при введенной процентной ставке.

8. Используя метод Соакеек (Подбор параметра), находит маргинальную процентную ставку, т. е. ставку, при которой чистый текущий объем ссуды равен величине самой ссуды.

9. Подготавливает рабочий лист для вывода результатов вычислений. Выводит полученные данные на рабочий лист (рис. 17.4) и в диалоговое окно (рис. 17.3)

Нажатие кнопки Отмена запускает на выполнение процедуру CommandButton2 _Click

Закрывает диалоговое окно

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 17.2. Сообщение о некорректном вводе данных


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta