Программирование_на_VBA в_Excel
.pdf
|
|
|
|
|
|
Варіант |
23. |
|
|
|
|
|
|
|
|
|
||||||||||||||
|
|
|
|
|
2sin3 a + |
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||
m = |
x |
|
|
|
|
для a = 2,6; 0,3 £ x £ 2,8; Dx = 0,5 . |
||||||||||||||||||||||||
|
|
|
|
|
ax |
|
|
|
|
|
|
|||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||
|
|
|
|
|
|
Варіант |
24. |
|
|
|
|
|
|
|
|
|
||||||||||||||
c = tg 3ax; z = |
|
a − x |
|
|
|
для |
a = 0,46; − 0,2 ≤ x ≤ 1,8; x = 0,4 . |
|||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||
|
|
|
|
|
|
Варіант |
25. |
|
|
|
|
|
|
|
|
|
||||||||||||||
z = |
|
2a - x2 |
|
|
, c = |
|
a |
|
для |
a = 1,3; 1,25 £ x £ 2,6; Dx = 0,4 . |
||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||
|
|
ex |
||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||
|
|
|
|
|
|
Варіант |
26. |
|
|
|
|
|
|
|
|
|
||||||||||||||
p = 3 |
|
; r = |
|
a |
; t = 2a3 ×ex |
для a = 1,6; 1,4 £ x £ 2,8; Dx = 0,2 . |
||||||||||||||||||||||||
ax |
||||||||||||||||||||||||||||||
ln x |
||||||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||||
|
|
|
|
|
|
Варіант |
27. |
|
|
|
|
|
|
|
|
|
||||||||||||||
y = |
|
|
|
a3 -1+ x2 |
|
|
для a = 1,75; 1,4 £ x £ 2,6; Dx = 0,3 . |
|||||||||||||||||||||||
|
|
|
|
|
4sin3 a |
|
||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||||||
|
|
|
|
|
|
Варіант |
28. |
|
|
|
|
|
|
|
|
|
||||||||||||||
d = |
|
1- ea+x |
|
; μ = asin |
|
|
|
|
для |
a = 1,8; 0,4 £ x £ 1,2; Dx = 0,2 . |
||||||||||||||||||||
|
|
|
x |
|
||||||||||||||||||||||||||
|
|
|
|
|
|
Варіант |
29. |
|
|
|
|
|
|
|
|
|
||||||||||||||
|
|
|
|
|
ax3 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||
l = |
|
|
|
|
; m = |
|
a + x |
|
для a = 1,86; 0,4 £ x £ 2,6; Dx = 0,3 . |
|||||||||||||||||||||
a |
+ x |
|
|
|||||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||||||
|
|
|
|
|
|
Варіант |
30. |
|
|
|
|
|
|
|
|
|
||||||||||||||
z = cos3 ax; p = |
|
|
1 |
|
|
|
|
для |
a = 2,5; 0,3 £ x £ 1,8; Dx = 0,3. |
|||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
||||||||||||||||||||
|
|
|
a - |
2x |
|
|
||||||||||||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Завдання 5. Програмування з використанням циклів і розгалужень. Створення функції користувача.
Завдання 5.1. Розробити програму на VBA для обчислення значень функції залежно від аргументу для свого варіанта індивідуального завдання. Програма повинна запускатися на виконання клацанням по кнопці з написом "ЛР5 Прізвище", що знаходиться на поточному робочому листі Excel, і виконувати наступні дії:
- вивід у першому рядку поточного листа тексту, що почина-
41
ється з комірки A1 і містить назву і номер роботи;
-вивід у другому рядку тексту, що починається з комірки A2 і містить прізвище, ініціали, групу;
-вивід у четвертому рядку тексту "Результати розрахунку" що починається з комірки A4;
-розрахунок значення функції відповідно до індивідуального завдання;
-вивід значень аргументу й функції у вигляді таблиці, що починається з комірки А5.
Запустити програму на виконання. Текст програми на VBA і лист Excel з результатами розрахунку надрукувати.
Завдання 5.2. Створити функцію користувача для обчислення одного значення заданої функції, що має два аргументи: K і x. Використовуючи отриману функцію користувача, обчислити й вивести таблицю значень функції для заданих значень аргументів. Надрукувати лист Excel з обчисленнями й текст функції користувача. Порівняти результати, що одержані при виконанні завдань 5.1 і 5.2.
Дані для індивідуального завдання 5.
Варіант 1.
ìK + sin x |
x £ 0,7 |
|||
V = í |
|
|
|
x > 0,7 |
|
|
|||
îK3 + x |
||||
Варіант 2. |
||||
ìK + tgx |
x £ 1,4 |
|||
F = í |
|
x >1,4 |
||
|
||||
îK 2 + 3 x |
Варіант 3.
ìln K + ln x + 1,284 V = íî1,45sin x + 3x + 2
Варіант 4.
ìK + ln x |
x £ 0,5 |
|
V = í |
+ ex |
x > 0,5 |
îK 2 |
для K = 0,25; 0,3 |
£ x £ 5; Dx = 0,15 . |
|
для K = 0,45; 0,6 £ x £ 4; Dx = 0,15 . |
||
x £ 1,5 |
для K = 1,75; 0,1 £ x £ 4; Dx = 0,4 . |
|
x > 1,5 |
|
|
для K = 0,75; 0,1 |
£ x £ 2; Dx = 0,05 . |
42
Варіант 5.
ì |
3 |
+ ln x |
|
x £ 0,5 |
|
|
|
|
|
|
|||||||||
V = íK |
|
|
|
для K = 0,71; 0,2 £ x £ 2,7; Dx = 0,25 . |
|
||||||||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|||||
îK + e x |
|
x > 0,5 |
|
|
|
|
|
|
|||||||||||
Варіант 6. |
|
|
|
|
|
|
|
|
|||||||||||
ìln x + cos 2,45x |
x £ 4,1 |
|
для K = 3,8;1 £ x £ 6; Dx = 0,3 . |
|
|||||||||||||||
V = í |
|
|
2 |
+ e |
x |
|
|
x > 4,1 |
|
|
|||||||||
îsin K |
|
|
|
|
|
|
|
|
|
||||||||||
Варіант 7. |
|
|
|
|
|
|
|
|
|||||||||||
ìK - sin 2,64K + cos(x - 0,75) |
|
x £ 6,5 |
= 0,45 . |
||||||||||||||||
V = íex |
+ ln(2 + K) |
|
|
|
|
|
|
x > 6,5 для K = 0,75; 3 £ x £ 9; Dx |
|||||||||||
î |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Варіант 8. |
|
|
|
|
|
|
|
|
|||||||||||
ìK + ln x |
|
|
|
|
|
x £ 1,5 |
|
для K = 2,7; 0,1 £ x £ 3; Dx = 0,2 . |
|||||||||||
V = í |
- e |
x |
|
+ ln 0,987 |
|
|
x >1,5 |
|
|||||||||||
îK |
|
|
|
|
|
|
|
||||||||||||
Варіант 9. |
|
|
|
|
|
|
|
|
|||||||||||
ìK + sin x |
|
x £ 0,7 |
|
|
|
|
= 0,25; 0,3 £ x £ 5; Dx = 0,15 . |
|
|||||||||||
V = í |
3 |
|
|
|
|
|
|
|
|
|
|
|
|
|
для K |
|
|||
+ |
|
|
|
x |
|
x > 0,7 |
|
|
|||||||||||
îK |
|
|
|
|
|
|
|
|
|
|
|
||||||||
Варіант 10. |
|
|
|
|
|
|
|
|
|||||||||||
ìK + ln x |
|
x £ 0,5 |
для K |
= 0,75; 0,1 £ x £ 2; Dx = 0,1 . |
|
||||||||||||||
V = í |
2 |
+ e |
x |
|
x > 0,5 |
|
|||||||||||||
îK |
|
|
|
|
|
|
|
|
|
|
|
||||||||
Варіант 11. |
|
|
|
|
|
|
|
|
|||||||||||
ìsin K + ln x |
x £ 6 |
для K = 1,68; 2 £ x £ 8; Dx = 0,45 . |
|
||||||||||||||||
V = í |
|
|
|
|
|
|
|
|
|
|
|
x > |
|
|
|||||
îcos x + 2,897K |
6 |
|
|
|
|
||||||||||||||
Варіант 12. |
|
|
|
|
|
|
|
|
|||||||||||
ìln K + cos x +1,2 |
|
|
|
x £ 1,5 |
для K = 1,75; 0,1 £ x £ 4; Dx = 0,4 . |
||||||||||||||
V = í1,45sin x + 3 |
|
|
|
x > 1,5 |
|||||||||||||||
x + 2 |
|
||||||||||||||||||
î |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Варіант 13. |
|
|
|
|
|
|
|
|
|||||||||||
ìK + cos x |
|
x £ 0,55 |
для K = 0,175; 0,2 £ x £ 2,9; Dx = 0,1. |
|
|||||||||||||||
V = í x |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
||||
îe |
+ |
ln x |
|
|
x > 0,55 |
|
|
|
|
|
|||||||||
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
43
Варіант 14.
ì |
2 |
|
|
|
|
|
V = íK + sin |
x |
|
x £ 1,5 |
для K = 2,7; 0,1 £ x £ 3; Dx = 0,3 . |
||
|
|
|||||
îK - ex |
+ ln 0,987 x > 1,5 |
|
||||
Варіант 15. |
|
|
||||
ìK 3 + sin x |
x £ 0,9 |
для K = 0,25; 0,3 £ x £ 5; Dx = 0,25 . |
||||
T = í |
|
|
|
|
||
îK 0,8 + |
|
x |
x > 0,9 |
|
|
Варіант 16.
ìsin K + ln x V = í +
îcos x 2,897K
Варіант 17.
V= ìíK sin x + ln2 x îcos K + 2,19x
x £ 6 |
для K = 6,75; 2 £ x £ 8; Dx = 0,35 . |
x > 6 |
|
x £ 6 |
для K = 2,75; 2 £ x £ 8; Dx = 0,45 . |
x > 6 |
|
|
Варіант 18. |
|
|
|
|
|
|||||||||||
ìK + cos x |
|
x £ 0,55 |
для K = 0,175; 0,2 £ x £ 2,9; Dx = 0,1. |
||||||||||||||
V = í |
x |
|
|
|
|
|
|
|
|
|
|
|
|
||||
îe |
|
|
+ |
x |
-1,5 |
|
|
x > |
0,55 |
|
|
|
|||||
Варіант 19. |
|
|
|
|
|
||||||||||||
|
|
|
|
|
|
||||||||||||
ìsin 2 K + lg Kx |
x £ 4,5 |
|
для K = 5,75; 2 £ x £ 8; Dx = 0,45 . |
||||||||||||||
V = ícos x + K1,8 |
|
x > 4,5 |
|
||||||||||||||
î |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Варіант 20. |
|
|
|
|
|
|||||||||||
ìK1,5 + ln x |
|
|
x £ 1,3 |
для K = 2,6; 0,3 £ x £ 3; Dx = 0,2 . |
|||||||||||||
V = í |
|
|
|
|
|
|
|
|
|
|
|
|
|
x > 1,3 |
|||
ex - 3 K + ln1,9 |
|
|
|||||||||||||||
î |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Варіант 21. |
|
|
|
|
|
|||||||||||
ìK + ctgx |
|
|
|
|
x £ 1,9 |
для K = 2,7; 0,6 £ x £ 3; Dx = 0,2 . |
|||||||||||
V = í |
|
|
|
|
|
|
|
x |
|
|
2 |
|
|
|
|||
|
K - e |
+ ln |
x |
x > 1,9 |
|||||||||||||
î |
|
|
|
|
|
|
|||||||||||
ì |
Варіант 22. |
|
|
|
|
|
|||||||||||
|
|
|
|
|
|
2,3 |
|
|
|
|
|
|
|
|
|||
V = í2,8 + K |
+ ln(x + 0,876) |
|
x £ 1,5 |
для K = 1,87;1 £ x £ 2; Dx = 0,05 . |
|||||||||||||
|
|
|
|
||||||||||||||
îK 2 + ex |
|
|
|
|
|
|
|
|
x > 1,5 |
|
44
Варіант 23.
ìcos K + sin(ln
V = íîK 2,45 + ex−0,19
Варіант 24.
ì |
|
|
|
|
|
+ K + ln( |
|||
ï1,7 |
||||
V = í |
2 |
|
x |
|
ï |
- e |
|||
îK |
|
|
|
x) x £ 2,5 |
для K = 3,5;1,6 £ x £ 2,9; Dx = 0,05. |
|
x > 2,5 |
|
|
x + 0,86) x £ 1,4 |
для K = 3,87;1 £ x £ 2; Dx = 0,06 . |
|
x > 1,4 |
|
Варіант 25. |
|
|
|
|
||||
ì |
|
|
|
|
|
|
|
|
K + lg x |
x £ 5 |
|
|
|
||||
ïsin |
для K = 2,75; 2 £ x |
£ 8; Dx = 0,45 . |
||||||
V = í |
x +1,7K |
x > 5 |
||||||
ïcos3 |
|
|
|
|||||
î |
|
|
|
|
|
|
|
|
Варіант 26. |
|
|
|
|
||||
ì |
|
|
2 |
2,4x x £ 4,1 |
|
|
||
ln Kx + sin |
|
|
£ x £ 6; Dx = 0,35 . |
|||||
V = ísin K 2 - ex |
|
x > 4,1 |
для K = 1,75;1 |
|||||
î |
|
|
|
|
|
|
|
|
Варіант 27.
ìïK 2 + cos x V = í x + -
ïe x 3K
î
Варіант 28.
ì |
|
|
3 |
x |
|
ïK + cos |
|
|
|||
V = í |
|
4K - x |
|
||
ïex + lg |
|
|
|||
î |
|
|
|
|
|
|
|
|
|
|
x £ 1,1 |
для K = 0,9; 0,5 £ x £ 2,8; Dx = 0,15 . |
|
x > 1,1 |
|
|
x £ -0,5 |
для K = 0,32; -1,5 £ x £ 1,9; Dx = 0,2 . |
|
x > -0,5 |
|
Варіант 29.
ìcos K 1,4 + sin(ln x)
T = íîK 2,1 + e x−0,2
Варіант 30.
ìln K + lg x + 2,19 V = íî3,7cos x + 5x + 6
x £ 2,1 |
для K = 3,5; 1,6 £ x £ 2,9; Dx = 0,1. |
x > 2,1 |
|
x £ 1,5 |
для K = 3,85; 0,6 £ x £ 5; Dx = 0,2 . |
x >1,5 |
|
Завдання 6. Програмування з використанням масивів.
Розробити програму на VBA для свого варіанта індивідуального завдання. Програма повинна запускатися на виконання клацанням по кнопці з написом "ЛР6 Прізвище", що знаходиться на поточному ро-
45
бочому листі Excel, і виконувати наступні дії:
−виводити в першому рядку поточного листа текст, що починається з комірки A1 і містить назву роботи і номер варіанту;
−виводити у другому рядку поточного листа текст, що починається з комірки A2 і містить прізвище, ініціали, групу;
−формувати заданий масив у зазначеному діапазоні значень і виводити його на поточний лист, починаючи з комірки A4, із спільним заголовком з заданою точністю за заданим числом елементів у рядку;
−обчислювати добуток від'ємних елементів масиву;
−визначати середнє значення додатних елементів масиву;
−знаходити найбільше й найменше значення елементів масиву і їхні номера в масиві;
−виводити результати розрахунків на поточний лист із поясненнями з тією ж точністю, що й елементи масиву.
Таблиця 9.1 – Варіанти для завдання 6
Варіант |
Ім'я, розмір, інтервал |
Число знаків |
Кількість елементів |
|
значень масиву |
після коми |
у рядку |
||
|
||||
1 |
X(10); [-1; 5] |
2 |
2 |
|
2 |
A(16); [-2; 1] |
3 |
4 |
|
3 |
D(15); [-3; 4] |
2 |
5 |
|
4 |
K(12); [-3; 1] |
3 |
3 |
|
5 |
F(14); [-1; 3] |
2 |
2 |
|
6 |
A(10); [-1; 2] |
3 |
5 |
|
7 |
C(20); [-3.5; 5] |
1 |
4 |
|
8 |
F(15); [-2; 3] |
2 |
3 |
|
9 |
K(28); [-5; 9.5] |
1 |
7 |
|
10 |
N(12); [-2; 4] |
3 |
3 |
|
11 |
X(24); [-4; 1] |
2 |
6 |
|
12 |
A(15); [-5; 5] |
1 |
3 |
|
13 |
D(13); [-1; .5] |
3 |
4 |
|
14 |
G(27);[-1.5;.3] |
2 |
3 |
|
15 |
C(12); [-2; 3] |
2 |
4 |
|
16 |
X(20); [-2;5] |
3 |
5 |
46
Продовження таблиці 9.1
Варіант |
Ім'я, розмір, інтервал |
Число знаків |
Кількість елементів |
|
значень масиву |
після коми |
у рядку |
||
|
||||
17 |
D(14); [-3; 1] |
2 |
2 |
|
18 |
A(20); [-2.5; 3] |
3 |
4 |
|
19 |
D(18); [-1; 4] |
2 |
6 |
|
20 |
P(15); [-2;2] |
3 |
5 |
|
21 |
T(20); [-3; 2] |
2 |
4 |
|
22 |
G(21);[-2.4;2] |
3 |
3 |
|
23 |
I(19);[-3;2] |
3 |
3 |
|
24 |
S(25);[-2;5] |
2 |
5 |
|
25 |
X(17);[-6;4] |
1 |
4 |
|
26 |
A(17);[-1;8] |
2 |
3 |
|
27 |
B(25);[-2;3] |
3 |
5 |
|
28 |
C(21);[-3;1.7] |
3 |
3 |
|
29 |
F(24);[-2;5] |
1 |
4 |
|
30 |
X(17);[-3;1.9] |
3 |
3 |
Завдання 7. Створення екранної форми для вводу даних.
Засобами Excel створити на поточному листі базу даних наступної структури:
Реалізація продукції
|
|
Наймену- |
Одиниця |
|
Кіль- |
Спо- |
Вар- |
Накладна |
Дата |
вання |
виміру |
Ціна |
кість |
живач |
тість |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
На тому ж листі Excel розмістити кнопку Введення даних, що призначена для відображення на екрані форми для введення даних. Введення даних у таблицю організувати по записах за допомогою форми, що розроблена на VBA. При цьому необхідно дотримуватися наступних вимог:
− на формі повинні бути розміщені елементи для введення всіх даних, крім поля Вартість, а також написи, що їх пояснюють;
47
−для полів Найменування і Споживач передбачити можливість вибору даних зі списків і уведення тих значень, які відсутні в списках;
−повинна розраховуватися й відображатися на формі й у таблиці вартість продукції по кожному запису.
За допомогою створеної форми заповнити перші 7 стовпців бази даних довільними даними про реалізацію продукції (15 записів). У таблиці повинно бути 3-5 найменувань продукції й 3-4 споживача.
Отриману таблицю надрукувати і скопіювати на новий лист. За допомогою команди Данные → Итоги розрахувати сумарну вартість продукції, що відправлена кожному споживачу, й по всій таблиці. Отриману таблицю з підсумками надрукувати.
Текст програми на VBA і вид форми надрукувати.
СПИСОК РЕКОМЕНДОВАНОЇ ЛІТЕРАТУРИ
1.Войтюшенко Н.М. Інформатика і комп'ютерна техніка: Навч. посібник / Н.М. Войтюшенко, А.І. Остапець. – К.: Центр навчальної літератури, 2006. – 568 с.
2.Інформатика: Комп’ютерна техніка. Комп’ютерні технології. Посіб./ За ред. О.І. Пушкаря. – Київ: Академія, 2001. – 696 с.
3.Эйткен П. Интенсивный курс программирования в Excel за выходные: Пер. с англ./ П. Эйткен. – М.: Издательский дом "Вильямс", 2004. – 432 с.
4.Кузьменко В.Г. VBA 2000 / В.Г. Кузьменко. – М.: ЗАО "Издательство БИНОМ", 2000. – 408 с.
5.Васильев А. VBA в Office 2000: учебный курс/ А. Васильев, А. Андреев. – СПб.: Питер, 2001. – 432 с.
6.Методичні вказівки до виконання лабораторних робіт за темою "Практичні розрахунки на Excel" з курсів "Інформатика та КТ" і "Економічна інформатика"/ Укл.: Н.М. Лепіло. – Алчевськ: ДонДТУ, 2009. – 48 c.
48