Завдання 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