Часть 2 программирование на visual basic for applications (vba)
Лабораторная работа 2.1
Вычисление арифметических выражений
Цель работы:
Получить практические навыки записи арифметических выражений.
Приобрести знания по составлению простейших программ с выводом результатов на рабочий лист рабочей книги Excel.
Задание:
Изучить теоретический материал соответствующего раздела учебного пособия «Информатика в пищевой биотехнологии (часть 2)»
Составить программу вычисления арифметического выражения.
Исходные данные и результаты расчета разместить на рабочем листе рабочей книги Excel, назначить макросу кнопку.
Написать отчет, содержащий:
задание;
текст программы;
результаты расчета.
Варианты задания приведены в табл. 2.1.
Создание макроса на языке VBA
Создать макрос «Выражение», который вычисляет значение арифметического выражения с проверкой области определения функций.
Порядок выполнения (рис. 2.1):
Запустить приложение Excel.
Выделить ячейку A2 и ввести в нее “a”.
Выделить ячейку B2 и ввести в нее число 4.
Выделить ячейку A3 и ввести в нее “b”.
Выделить ячейку B3 и ввести в нее 1.
Выделить ячейку A4 и ввести в нее “x”.
Выделить ячейку B4 и ввести в нее 2.
Выберите в главном меню Сервис – Макрос – Начать запись. В появившемся диалоговом окне (рис. 2.2) в поле Имя макроса введите имя макрокоманды, например Выражение. Нажмите на кнопку ОК.
Таблица 2.1
|
№ |
Функция |
№ |
Функция |
|
1 |
|
2 |
|
|
3 |
|
4 |
|
|
5 |
|
6 |
|
|
7 |
|
8 |
|
|
9 |
|
10 |
|
|
11 |
|
12 |
|
|
13 |
|
14 |
|
|
15 |
|
16 |
|
|
17 |
|
18 |
|
|
19 |
|
20 |
|
Рис. 2.1. Исходные данные
|
|
Рис. 2.2. Окно «Запись макроса»
|
Выберите в главном меню Сервис – Макрос – Остановить запись, затем Сервис – Макрос – Макросы. В появившемся окне (рис. 2.3) в левой части выделите имя вашего макроса, в опции Находится в: из ниспадающего меню выберите Эта книга и нажмите кнопку Войти.
Рис. 2.3. Окно
«Макрос»
В открывшемся редакторе Microsoft Visual Basic выполните ввод исходного кода программы
Sub Выражение()
'Активация рабочего листа
Sheets("Лист1").Select
'Ввод исходных данных из ячеек книги Excel
a = ThisWorkbook.ActiveSheet.Cells(2, 2)
b = ThisWorkbook.ActiveSheet.Cells(3, 2)
x = ThisWorkbook.ActiveSheet.Cells(4, 2)
'Выполнение вычислений
c0 = Exp(x + a * b)
c1 = a * b + x ^ 2 * Sin(a) ^ 2
If c1 < 0 Then GoTo 1
c2 = a * a - b * b
If c2 = 0 Then GoTo 1
c3 = Sqr(c1) / c2
If c3 <= 0 Then GoTo 1
y = c0 + Log(c3) + x
'Вывод результата в ячейку книги Excel
ThisWorkbook.ActiveSheet.Cells(6, 1) = "y"
ThisWorkbook.ActiveSheet.Cells(6, 2) = y
Exit Sub
1: ThisWorkbook.ActiveSheet.Cells(6, 2) = "Функция не определена"
End Sub
Выполните команду Файл – Сохранить, дайте файлу имя и вернитесь в окно Excel.
Введите команду Сервис – Макрос – Макросы…. На открывшейся диалоговой панели Макросы выберите макрос Выражение и нажмите кнопку Выполнить (рис. 2.4).
Рис. 2.4. Результат выполнения макроса
Введите новые исходные данные: a=0,6; b=5; x=4,45 и выполните макрос (рис. 2.5).
Рис. 2.5. Результат выполнения макроса
Текст макроса и результаты вычислений запишите в тетрадь.