Алгоритм

1. Створимо робочий аркуш Модуль, перейменувавши робочий аркуш Лист3.

2. Розмістимо на цьому робочому аркуші як графічний об’єкт наведені формули функціональної залежності між величинами.

3. Активізуємо панель Элементы управления. Створимо на робочому аркуші командну кнопку з написом Обчислити (властивість Caption). переключивши MS Excel в режим конструктора.

4. Введемо в комірки поточного робочого аркуша заголовки у відповідності з малюнком 44.4:

Мал.44.4

5.Двічі клацнувши на командній кнопці, створимо код процедури обробки події – клацання на командній кнопці.

5.1.При цьому спроектуємо виведення значень: b – у комірку B7; x – у комірки стовпця В, починаючи з комірки B9; а – у комірки стовпця С, починаючи з комірки C9; Z – у комірки стовпця D, починаючи з комірки D9.

5.2.Код процедури може бути таким, як на малюнку 44.5.

6. Перейдіть до робочого аркуша Макросі виконайте відлагодження та тестуваня програми. Для цього натискайте кнопку Обчислити і аналізуйте отримані результати, адже кожного разу буде генеруватись випадкове ціле число, яке впливає на порядок виконання обчислень.
Зауваження. Економічний зміст випадкового числа може бути,наприклад, таким: означати випадковий попит на продукцію.

Мал.44.5

7. Переконайтесь у правильності роботи програми. Проаналізуйте результати обчислень, наведені на рис.44.6.

Рис.44.6

8. Збережіть внесені у документ зміни.

Завдання 4. Складіть звіт і захистіть виконану роботу

Перелік питань до захисту практичної роботи

1. Як включити режим відображення формул робочого аркуша?

2. Як створити макрос та призначити для його активізації командну кнопку?

3. Як вилучити макрос?

4. Як розробити функцію користувача?

5. Яку структура має код функції користувача?

6. Де зберігаються макроси? Функції користувача?

7. Який порядок застосування функції користувача?

8. В якій категорії зберігаються функції користувача?

9. Які об’єкти має об’єктна модель MS Excel?

10. Який об’єкт об’єктної моделі MS Excel є контейнером функцій робочого аркуша?

11. Які функції має робочий аркуш? Наведіть приклади.

12. Чи існує функція для обчислення натурального логарифму числа, яке зберігається у комірці робочого аркуша?

13. Як звернутись до тієї чи іншої функції робочого аркуша?

14. Як створити модуль робочого аркуша? Модуль робочої книги?

15. Як звернутись у процедурі до діапазону комірок? Окремої комірки робочого аркуша?

16. Яке призначення має оператор with?

17. Який алгоритм розробки програми автоматизації обчислень?

18. Які імена мають процедури, пов’язані з подіями робочого аркуша?

19. Який режим MS Excel потрібно активізувати, щоб на робочому аркуші можна було розміщувати елементи управління?

20. Як программно перейменувати робочий аркуш?

Private Sub CommandButton1_Click()

Dim x(7) As Double

Dim a(7) As Double

Dim z(7) As Double

Dim k, b As Integer

k = 1

Randomize

b = Int(100 * Rnd)

Cells(k + 6, 2) = 2

For i = -2 To 10 Step 2

x(k) = i

If b + x(k) >= 0 Then

a(k) = Sqr(b + x(k))

Cells(k + 8, 2) = x(k)

Cells(k + 8, 3) = a(k)

If a(k) + b <> 0 Then

z(k) = (a(k) ^ 3 + b) ^ (1 / 3) / (a(k) + b)

Cells(k + 8, 4) = z(k)

Else: Cells(k + 8, 4) = "n.r"

End If

Else

Cells(k + 8, 4) = "n.r"

End If

k = k + 1

Next i

End Sub