Public Function СредняяГармоническая (Х As Variant) As Double

 

Пункт 6. Введите программный код.

1) Dim K, I As Integer, Сумма As Double ‘ Описываем вспомогательные переменные

2) K = Х.Count ‘ Определяем количество значений величины Х

3) Rem Рассчитываем сумму, стоящую в знаменателе

4) For I = 1 To K

5) Сумма = Сумма + 1 / Х(I)

Next I

7) СредняяГармоническая = K / Сумма

Пункт 7. Проверьте работу функции на контрольном примере (Рис. 12), вызвав нужную функцию в ячейке В2.

 

 

 

 

Задание 3. Встроенные диалоговые окна

Теоретический материал к занятию:

1) окно ввода;

2) окно сообщений.

Окно ввода

InputBox (prompt [,title] [,default] [,xpos] [ypos])

 

prompt – текст в окне ввода

title – заголовок окна

default – текст в поле ввода

xpos – расстояние от левой границы экрана до левой границы окна

ypos – расстояние от верхней границы экрана до верхней границы окна

Окно ввода включает в себя: заголовок, текст, поле ввода и две кнопки (ОК и Отмена) (Рис. 13)

Значением функции является строка, набранная в поле ввода, если нажата кнопка ОК и пустая строка, если нажата кнопка Отмена.

Окно сообщения

MsgBox (prompt [,buttons] [,title])

 

prompt – текст в окне сообщения

buttons – настройки окна сообщения

title – заголовок окна

Значения функции MsgBox

1 – ОК

2 – Отмена (Cancel)

3 – Прервать (Abort)

4 – Повторить (Retry)

5 – Пропустить (Ignore)

6 – Да (Yes)

7 – Нет (No)

Константы для определения параметра buttons

Константа	Значение	Описание
Наборы кнопок окна сообщения
VbOKOnly VbOKCancel vbAbortRetryIgnore   vbYesNoCancel vbYesNo vbRetryCancel		Окно содержит только кнопку ОК Окно содержит кнопки ОК и Отмена Окно содержит кнопки Прервать, Повторить и Пропустить Окно содержит кнопки Да, Нет и Отмена Окно содержит кнопки Да и Нет Окно содержит кнопки Повторить и Отмена
Пиктограммы окна сообщения
vbCritical		Добавляет пиктограмму «Критическое сообщение». Часто после такого сообщения программа прекращает работу.

 

Константа	Значение	Описание
vbQestion   vbExclamation vbInformation		Добавляет пиктограмму «Запрос». Обычно используется, когда для продолжения работы программы требуется дополнительная информация. Добавляет пиктограмму «Предупреждение». Добавляет пиктограмму «Информация». Чаще всего используется для сообщения о завершении выполнения некоторой задачи.
Кнопка по умолчанию
vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4		Первая Вторая Третья Четвертая
Модальность окна
vbApplicationModal     vbSystemModal		Модальность уровня приложения. Пока вы не нажмете одну из кнопок окна, вы не сможете вернуться в приложение, породившее это окно. При этом можно переключиться на другое приложение. Модальность системного уровня. Пока не будет закрыто это окно, никакие приложения не доступны.

Задача 3.1. Составить программу, последовательно выводящую следующие диалоговые окна (Рис. 15).

Решение.

Откройте рабочую книгу, на панели инструментов Формы выберите элемент кнопка и поместите его на рабочий лист. Появится диалоговое окно Назначить макрос объекту. Нажмите кнопку Создать. В появившемся окне нужно и набирать программный код.

Окна ввода и сообщения могут быть реализованы в виде функций или в виде операторов InputBox и MsgBox. Если при решении задачи требуется запомнить текст, вводимый в поле ввода, то используется функция InputBox (). Если этот текст в дальнейшем не нужен, то – оператор InputBox. Если дальнейший ход решения зависит от того, какая кнопка нажата в окне сообщения, то используется функция MsgBox(). В противном случае оператор MsgBox. Напомним, что аргументы функции помещаются в скобках. В задаче 3.1 окна с номерами 1 и 2 реализуются функциями, а окна 3 и 4 операторами.

 

 

 

 

Наберите программный код:

Номер = MsgBox("Продолжить работу?", vbYesNo + vbQuestion, "Запрос")

If Номер = 6 Then

Строка = InputBox("Введите имя", "Да", "Иванов")

MsgBox Строка, vbOKOnly + vbExclamation

Else: MsgBox "Завершение работы", vbOKOnly + vbCritical, "Нет"

End If

В этой задаче мы впервые используем блочную форму условного оператора. Её целесообразно применять в случае длинного логического условия или нескольких операторов, стоящих после ключевого слова Then или Else.

Перейдите на рабочий лист и нажмите кнопку. Проверьте работу всех кнопок.

 

Задание 4. Создание форм пользователя

Теоретический материал к занятию:

1) структура редактора VBA;

2) элементы управления: свойства и методы;

3) оператор выбора;

4) область видимости переменных.

 

Задача 4.1. Разработать форму пользователя для вычисления годовой процентной ставки контракта по кредиту, взятого на определенный срок при известных сумме долга и сумме, подлежащей возврату. Используйте формулу:

где Р – сумма кредита;

S – сумма, подлежащая возврату;

Т – срок кредита.

Решение. Создание проекта на языке VBA предполагает конструирование интерфейсной части (чаще всего форм пользователя) и разработку программного кода.

Откройте редактор VBA и вставьте форму пользователя командой Insert ® UserForm.

В окне свойств найдите в левой колонке свойство Caption, а в правой введите значение Расчет годовой процентной ставки. Значением данного свойства является символьная константа, отображающаяся в заголовке данной формы. Найдите в левом столбце свойство BackColor, в правом столбце откройте список, перейдите на вкладку Palette и выберите цвет формы. Можно также разместить на форме рисунок с помощью свойства Picture.

Добавьте на форму элемент надпись. Для этого на панели элементов управления Toolbox нажмите кнопку (Label), наведите указатель мыши на форму и, не отпуская левой кнопки, растяните объект до нужного размера (Рис. 16).

Введите значение свойства Caption – Сумма кредита. Настройте цвет надписи с помощью свойства BackColor, цвет букв с помощью свойства ForeColor, шрифт, начертание и размер букв – Font.

Разместите на форме все остальные элементы управления (Рис. 17). Это четыре надписи (Label), четыре текстовых поля (TextBox) и три кноп ки (CommandButton). Настройте свойства.

После настройки интерфейсной части приступаем к созданию программного кода.

Программный код для кнопки Выход состоит всего из одного оператора End (конец программы). Откройте окно редактирования кода (например, двойным щелчком по этой кнопке) и введите оператор (Рис. 18).

 

 

 

При нажатии кнопки Очистить все текстовые поля должны стать пустыми. Для этого изменим значение свойства Text элемента TextBox. Значение любого свойства в программе можно поменять строкой вида:

Объект.Свойство = Значение

 

В итоге программный код для кнопки Очистить будет иметь следующий вид:

TextBox1.Text = “”

TextBox2.Text = “”

TextBox3.Text = “”

TextBox4.Text = “”

TextBox1.SetFocus

Метод SetFocus делает элемент управления активным. В нашем случае после того, как все поля станут пустыми, курсор будет установлен в первое текстовое поле.

Наберите полученную программу в окне редактирования кода для кнопки Очистить.

При нажатии кнопки Вычислить из текстовых полей должны быть прочитаны исходные данные и преобразованы в числовые, затем вычислено значение годовой процентной ставки и выведено в четвертом текстовом поле.

Но прежде чем считывать исходные данные, необходимо проверить, правильно ли они введены. Ошибка возникает, когда текстовое поле остается пустым или в него введено не число. Проверить правильность можно с помощью логической функции IsNumeric, которая принимает значение True (Истина), если аргументом является число и значение False (Ложь) в противном случае.

Блок проверки правильности введенных данных для текстового поля TextBox1 будет иметь вид:

If IsNumeric(TextBox1.Text) = False Then