Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Программирование_на_VBA в_Excel

.pdf
Скачиваний:
29
Добавлен:
06.02.2016
Размер:
308.03 Кб
Скачать

 

 

 

 

 

 

Варіант

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