12. Сохранить полученные изменения

13. Перейти на Лист1.

14. Нарисовать на рабочем Листе1 произвольную автофигуру с надписью Задача2, используя панель инструментов Рисование.

15. Назначить автофигуре с надписью Задача2 макрос Zadanie2, выбрав пункт контекстного меню Назначить макрос...

16. Запустить форму при помощи автофигуры.

17. Построить график функции y(x) по полученным результатам Таблицы, используя средства Excel, разместив его на новом рабочем листе. Для чего:

• вызвать диалоговое окно Мастер диаграмм (ВставкаДиаграмма…);

• выбрать тип диаграммы Точечная и вид диаграммы:

• указать ссылку на диапазон данных A2:B14 при условии x<=2;

• перейти на вкладку ряд щелкнуть по кнопке Добавить и в поле ввода Значение X ввести ссылку на диапазон данных A15:A18 при условии x>2, а в поле ввода Значение Y ввести ссылку на диапазон данных B15:B18;

• переименовать Ряд1, используя поле имя в y=x^2-a, Ряд2 - y=b-2*x;

• ввести название диаграммы Графики функции и название осей.

18. Сохранить документ и закрыть программу MS Excel.

3. Разработка программ и алгоритмов циклической структуры

1. С использованием процедуры функции в редакторе Visual Basic;

2. С использованием встроенных диалоговых окон (окна ввода, окна сообщения) в процедуре подпрограммы. Задание 3

Вычислить сумму заданного числа n членов следующего ряда .

Блок-схема

1. Создание процедуры функции в редакторе Visual Basic

Ход выполнения задания 3:

1. Создать документ Excel в папке своей группы под своей фамилией.

2. Сформировать на рабочем листе таблицу по предложенному образцу:

3. Запустить редактор Visual Basic, используя команду Сервис МакросРедактор Visual Basic.

4. Создать модуль, используя команду InsertModule .

5. Создать процедуру, используя команду InsertProcedure… с именем S, имеющую тип Function.

6. Ввести в окне редактирования кода программу

Public Function S(n, x)

S = 1

For i = 1 To n

p = 1

For k = 1 To i

p = p * k

Next k

ds = (2 * i - 1) * x / p

S = S + ds

Next i

End Function

7. Перейдите на рабочий лист MS Excel.

8. Установить курсор в место вывода результата (ячейка С2).

9. Вызвать Мастер функций командой ВставкаФункция.

10. Выбрать имя созданной функции S в категории функций Определенные пользователем.

11. Ввести ссылки на соответствующие ячейки в окне Аргументы функции

12. Проверить результат выполнения программы, полученный в ячейке С2 (S = 9,333).

13. Сохранить и закрыть документ MS Excel.

2. Использование окон сообщений и окон ввода

Ход выполнения задания 3:

1. Создать документ Excel в папке своей группы под своей фамилией.

2. Перейти в окно Редактора VB, командой Сервис  Макрос  Редактор Visual Basic.

3. Создать модуль, используя команду InsertModule .

4. Записать в модуль процедуру Пример_3.

Public Sub Пример_3()

Dim s, x, ds As Single

n = Val(InputBox("Введите n", "Окно ввода n"))

x = Val(InputBox("Введите x", "Окно ввода x"))

s = 1

For i = 1 To n

p = 1

For k = 1 To i

p = p * k

Next k

ds = (2 * i - 1) * x / p

s = s + ds

Next i

MsgBox "Сумма членов ряда S=" & s & " при n=" & n & " при x=" & x

End Sub

5. Перейти на рабочий лист и запустить программу на выполнение командой Сервис  Макрос  Макросы….

6. Ввести в окно ввода n значение n.

7. Ввести в окно ввода x значение x.

8. Проверить результат вычислений.

9. Сохранить документ и закрыть программу MS Excel.