Контрольная Информатика, лабораторные работы, номер: 175652

" Лабораторная работа №10

Цель работы: выработать навык создания и вызова макросов (макрокоманд) при работе с MS Excel на языке программирования Visual Basic for Applications (VBA).

ЗАДАНИЕ
В MS Excel открыть новую книгу. На новом рабочем листе провести табулирование функции своего варианта, для последовательности 12-ти натуральных чисел аргумента Х начиная с последней цифры номера своего варианта.
Процесс табулирования функции записать в макросах в режимах абсолютных или относительных ссылок.
Каждому макросу присвоить уникальное имя и произвести запуск (выполнение) макроса с помощью: назначенной комбинации клавиш; кнопки Выполнить окна Макрос; созданной на рабочем листе командной кнопки; графического объекта, выполняющего роль командной кнопки; кнопки расположенной на панели быстрого доступа.
Вариант Функция Вариант Функция
1
11

2
12

3
13

4
14

5
15

6
16

7
17

8
18

9
19

10
20


Контрольные вопросы
1. Что такое макрос (дайте определение понятия), и какие бывают его разновидности?
2. В чем заключается подготовка MS Excel к записи (созданию) макроса?
3. Почему и как нужно подготовить книгу MS Excel к записи макроса с точки зрения безопасности?
4. С помощью, каких инструментов MS Excel создается макрос?
5. Объясните порядок и технику записи макроса макрорекордером.
6. Как присваивается имя (какие символы можно использовать в имени макроса?) и другие атрибуты макросу?
7. Перечислите способы запуска (выполнения) макроса.
8. Какие действия пользователя на рабочем листе и ленте не записываются в макросе?
9. В чем недостаток запуска макроса назначенной комбинацией клавиш?
10. Чем отличаются результаты вызова макроса, при записи которого использовались режимы с относительной или абсолютной ссылкой?
11. В чем преимущество запуска макроса с помощью настраиваемой командной кнопки? Как создается настраиваемая командная кнопка?
12. Как добавляется кнопка вызова макроса на панель быстрого доступа?
13. Какова последовательность действий при назначении макроса графическому изображению?
14. Чем выполнение макроса компьютером отличается от выполнения обычной программы?
15. Как просмотреть код макроса?
16. Как удаляется макрос? Покажите на примере.
17. Где хранятся макросы?

ЗАДАНИЕ 1. Лабораторная работа № 9
В соответствии со своим вариантом найти экстремум функций.
Вариант Функция Экстремум
1
min

max
2
max

min
3
max

min
4
min

min
5
max

max
6
min

min
7
min

max
8
max

min
9
max

min
10
min

min
11
max

max
12
min

min
13
min

min
14
max

max
15
min

min
16
min

max
17
max

min
18
max

min
19
min

min
20
max

max
Лабораторная работа № 11

ЗАДАНИЕ

Для выражения своего варианта (табл. 1), используя язык программирования VBA, в MS Excel выполните следующие вычислительные задачи:
1. Создайте процедуру вычисления значения выражения. Ввод данных с помощью диалогового окна. Результаты также помещаются в окно вывода (Пример 1).
2. Создайте процедуру вычисления значения выражения. Ввод и вывод переменных через ячейки таблицы (Пример 2).
3. Создайте процедуру табулирования выражения c использованием цикла типа “For … Next”. Начальное значение аргумента х, шаг изменения аргумента h и количество аргументов n (не менее 10) определяется самостоятельно. Ввод данных с помощью диалогового окна, вывод таблицы на рабочий лист (Пример 3).
4. Создайте процедуру табулирования выражения c использованием цикла типа “Do While … Loop”. Начальное значение аргумента х, шаг изменения аргумента h и количество аргументов n (не менее 10) определяется самостоятельно. Ввод данных с помощью диалогового окна, вывод таблицы в окно вывода результата (Пример 4).
Блок-схемы алгоритмов расчета выражения и тексты (коды) процедур заданий запишите в тетрадь для лабораторных работ.
Таблица 1
Вариант Выражение Вариант Выражение
1
11

2
12

3
13

8
14

5
15

6
16

7
17

4
18

9
19

10
20


Основные математические функции VBA



Операторы пересчета
Приведены операторы Visual Basic, позволяющие рассчитывать значения тригонометрической функции ctg x, обратных тригонометрических функций arcsin x, arcos x и arcctg x, и десятичного логарифма lg x.
ctg x = Cos(x) / Sin(x), если Sin(x) <> 0

Const pi As Double = 3.141592654

arcsin x = Atn(x / Sqr(1 – x^2)), если Abs(x) <> 1
arcsin x = Sqn(x) * pi / 2 , если Abs(x) = 1

arcos x = Atn(Sqr(1 – x^2) / x), если x <> 0
arcos x = pi / 2, если x = 0

arcctg x = Atn(1 / x), если x <> 0
arcctg x = pi / 2, если x = 0

lg x = Log(x) / 2.302585093, если x > 0
"