1. Створення Панелі користувача і кнопок макросів

Налагодження середовища VBA виконується аналогічно діям, що виконані в РГР №3, при цьому мають місце кнопки з макросами для ітераційної циклічної структури і циклу за індексом.

П

1

2

ісля створення панелі інструментів користувача і кнопок макросів загальний вигляд наведений на рис. 1.1.

Рис. 1.1. Панель інструментів користувача із кнопками для виклику програм 1.Ітераційної циклічної структури; 2.Циклу за індексом

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

2.1 Постановка задачі

Розробити алгоритм та програму розрахунку значень функції w згідно з формулами:

x<0,5 x=0,5 x>0,5

t=2,2

2.2 Блок-схема алгоритму

Блок-схему наведено на рис. 2.1.

2.3. Таблиця ідентифікаторів

Змінна алгоритму	x	z	t	x0	xi	Δx
Ідентифікатор	x	z	t	x0	xi	dx
Тип	Single

2.4 Текст програми

Sub iter_cykl()

Dim x As Single, z As Single, t As Single

Dim x0 As Single, xi As Single, dx As Single

MsgBox ("Ітераційний цикл")

'Уведення вхідних даних

t = InputBox("Введіть t")

x0 = InputBox("Введіть x0")

xi = InputBox("Введіть xi")

dx = InputBox("Введіть dx")

x = x0

While x <= xi

If x< 0,5 Then

If x+t<0 then

Msg box (“z не визначено”):go to 1:

else

z = (((Log(x)) ^ 3) + (x ^ 2)) / ((x + t) ^ (1 / 2))

Else

If x=0,5 Then

z=(sqr(x+t))+1/x

Else

z=cos(x)+t*(sin(x))^2

End If

End If

MsgBox ("z = " + Str(z) + "; x = " + Str(x))

1:

x = x + dx

x = Round(x,1)

Wend

End Sub

2.5 Контрольний приклад тестування програми

За допомогою калькулятора обчислюю значення z_т при заданих значеннях х та порівнюю їх з результатом роботи програми.

За допомогою калькулятора обчислюю значення z_т при x= 0,4, x= 1, x=0,5

0.04

табл. 2.1.

Таблиця 2.1

x	zт	zпр	Δz,%
0,2	-2,6652	-2,6652	0
0,4	-0.37788	-0.37788	0
0,6	1.52674	1.52674	0
0,8	1.82883	1.82883	0
1	2.09806	2.09806	0
1,2	2,2349	2,2349	0
1,4	2,30641	2,30641	0
1,6	2,16892	2,16892	0
1,8	1,85923	1,85923	0
2	1,40286	1,40286	0

Висновок. Отже, так як похибка не перевищує 0,05%, то програма ітераційної структури працює коректно.

3. Розробка алгоритму та програми визначення суми членів ряду з використанням циклічної структури з заданим числом повторень

3.1 Постановка задачі

Розробити алгоритм та програму розрахунку значень функції s згідно з формулами:

3

Виконати тестування для перевірки правильності функціонування програми для значень n=3, x=π/6.

3.2 Блок-схема алгоритму

Блок-схема алгоритму зображена на рис 3.1

3 .3. Таблиця ідентифікаторів

Змінна алгоритму	n	i	(2n+1)!	s	x
Ідентифікатор	n	i	f	s	x
Тип	integer			single

3.4 Текст програми

Sub_cykl_index()

Dim S as Single, x as Single

Dim i as integer, n as integer, f as integer

MsgBox(“Цикл по індексу“)

x=InputBox (“Введіть x=”)

n=InputBox(“Введіть кількість членів ряду”)

S=x

For i=1 to n-1

f=1

for j=1 to 2*i+1

f=f*j

next j

s = s +((-1)^i )*(x ^ (2 * i + 1)) / f

Next i

MsgBox(“сума ”+str(n)+” членів ряду = ”+str(s))

End Sub

3 .5 Контрольний приклад тестування програми

3.5.1. За допомогою Ms Excel .

С

Рис. 3.1

Діалогове вікно Microsoft Word

ума трьох членів ряду рівна S=0,5 при значенні x=π/6..

3.5.2. За допомогою програми.

Сума трьох членів ряду рівна S_пр = 0,5.

3.5.3. Обчислення похибки між результатом роботи програми і тестовим прикладом .

3.5.4.Висновок.

Отже, так як похибка програми між результатом роботи програми і тестового прикладу не перевищує 0,05%, то програма циклу за індексом працює коректно.

Список використаних літературних джерел

1. ДСТУ Б А.2.4-4-99. Система проектної документації для будівництва. Основні вимоги до робочої документації. – Введений на заміну ДСТУ Б А.2.4-4-95 наказом Держбуду України № 117 від 11.05 99 р.; Чинний від 01.10.99. – Київ, 1999. – 59с.

2. А. Васильев, А. Андреев. VBA в Office 2000. C.-Пб.: Питер, 2001. – 409c.

3. Голов О.О., Мартьянов В.В. Методичні вказівки до виконання лабораторних робіт на тему “Програмування мовою VBA”,– Полтава: ПолтНТУ, 2006. - 19 с.

4. Демидова Л.А., Пылькин А.Н. Программирование в среде Visual Basic for Application. М.: Телеком 2004.

5. Гетц К., Джилберт М. Программирование в Microsoft Office. К.: Издательская группа BHV, 1999

6. Харченко О.А., Сороковий О.І., Методичні вказівки до виконання лабораторних робіт на тему : «Підготовка текстового документа у редакторі Microsoft Word».-.2002.-35с.

7. Рогоза М.Є. XP: Windows, Excel, Word для самостійного вивчення, - К.: ЦУЛ, 2003

8. Камминг, Стив. VBA для "чайников", 3-е издание.: Пер.с англ. – М.: Издательский дом "Вильямc", 2001.— 448c.

9. Брайан Сайлер, Джефф Споттс. Использование Visual Basic 6. Специальное издание.: Пер.с англ. – С.-Пб.: Издательский дом "Вильямc", 2007.- 832с.

10. Серебряников А.Н. «Программирование в VBA в примерах. – Санкт-Петербург: Питер, 1997. – 336 с.

11. Конспект лекцій