Задание. 1. Составить в среде VBA линейную программу на языке Basic в виде подпрограммы-функции для вычисления значения выражения

1. Составить в среде VBA линейную программу на языке Basic в виде подпрограммы-функции для вычисления значения выражения, зависящего от значений переменных
a, b, c:

где m ₁– количество гласных букв[1] в вашей фамилии, m ₂ – количество гласных букв в вашем имени.

2. Составить в среде VBA разветвляющуюся программу на языке Basic в виде подпрограммы-функции для вычисления значения функции:

3. Вычислить в ЭТ Excel значение определенных функций, задав значения входным переменным.

Последовательность выполнения задания:

Загрузить ЭТ Excel (через пункт меню Пуск или панель быстрого запуска).
Сохранить файл (рабочую книгу) с именем лр4.xls в каталоге R:\Информатика\Семестр 2.
Понизить уровень безопасности: Сервис ® Макрос ® Безопасность, в появившемся диалоговом окне установить средний уровень.
Открыть редактор VBA: Сервис ® Макрос ® Редактор Visual Basic или Alt+F11.
Ознакомиться с командами меню, панелью инструментов.
Добавить модуль в рабочую книгу: Insert ® Module; в окне свойств (Properties) задать имя (Name) модуля – Lab_4.
Разработать линейную программу:

¨ выбрать имя процедуры-функции;

¨ выбрать обозначения всех математических величин задачи на языке VBA;

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

Таблица записи арифметических операций

Таблица записи основных математических функций

Математическая запись	Basic
– a	– a
a + b	a + b
a – b	a – b
a·b	a * b
a: b	a / b
aⁿ	a^n
	a^(1/n)

Математическая запись	Basic
\| x \|	Abs(x)
	Sqr(x)
e^x	Exp(x)
ln x	Log(x)
cos x	Cos(x)
sin x	Sin(x)
tg x	Tan(x)
arctg x	Atn(x)

Пример выполнения:

Пусть задана функция

Разработка линейной процедуры-функции:

1) назовем процедуру-функцию для вычисления заданной величины Vel_F (назвать функцию просто F нельзя, т.к. в Excel есть столбец с аналогичным именем);

2) введем обозначения переменных

входные переменные a ® a, x ® x

промежуточные переменные pi, z1, z2, z3, z4

выходная переменная vel_f

3) функция для вычисления значения функции f (x,a) может иметь вид:

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

Для программирования такой структуры необходимо использовать оператор If / Then / Else.

Синтаксис расширенного оператора if:

If условие_1 Then

операторы_1

[ ElseIf условие_2 Then

операторы_2 ]

Else

операторы_3

End If

Пример выполнения:

Пусть задана функция

Разработка разветвляющейся процедуры-функции:

1) назовем процедуру-функцию для вычисления заданной функции Fun_G;

2) введем обозначения переменных

входные переменные x ® x

выходная переменная g (x) ® g

3) функция для вычисления значения функции g (x) может иметь вид:

Вычислить значение функций f (x,a)и g (x) в ЭТ Excel.

Для расчета значения функции f (x,a) с использованием определенной процедуры-функции, необходимо из активной ячейки (например, D4) вызвать Вставка ® Функция…:

1 шаг в разделе категория выбрать Определенные пользователем, а затем указать функцию Vel_F

2 шаг в поле для входных параметров установить ссылки на соответствующие ячейки

Таким образом формула примет вид:

в ячейке D4 =Vel_F(D2;D3)

В результате получим: