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

Кравчук / 1 семестр / Visual_Basic_6.0._Посiбник_2009

.pdf
Скачиваний:
60
Добавлен:
29.02.2016
Размер:
5.8 Mб
Скачать

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№28

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x

2

 

d

2

b

2

 

 

e

a

,

x d ;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x d)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f (x)

 

cos(

 

 

 

 

 

,

 

 

 

 

 

 

 

 

 

x d ;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

sin(

b a)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a 2 b2

 

3 edx

,

 

x d

 

 

lg

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1

0,94 ;

 

 

 

 

x 2

 

 

1,86

;

 

 

 

x 3

0,39 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№29

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

2

c

2

 

 

 

 

 

 

 

x c;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

arccos

 

 

 

 

 

 

,

 

 

 

 

 

(x b)2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y(x)

 

2

(x c) e

cos ab

,

 

x c;

sin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2

(x 4,7c)

 

 

 

 

 

 

 

 

 

 

 

 

 

sin

 

 

,

 

 

 

 

 

x c;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

xa b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1

0,607 ;

 

 

 

 

x2

 

1,57

;

 

 

 

 

 

x3

0,29 .

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№30

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ex cos b

ln

 

a c

 

 

 

 

 

 

 

 

 

 

 

,

 

x b;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

f (x)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

,

 

x b;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tg(x b)2 3 ac 2

 

 

 

 

 

 

 

 

 

 

 

 

a2 b

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

 

 

 

 

,

 

x b;

 

 

arcsin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

(c

 

x)

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x1

 

 

 

 

x2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x3

 

 

0,368 ;

 

 

 

2,17 ;

 

 

 

0,28 .

110

a e 0,2 ;

b 3 ln 5;

d cos ; 9

 

tg

 

 

 

 

 

 

 

 

a

 

 

4

 

 

;

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

b ln 3;

c

1

 

;

 

 

 

 

 

 

 

 

 

 

 

 

 

e

a 37 ;

b e 1 ;

c 4arctg ; 3

2. 4. Програмування алгоритмів циклічної структури.

Лабораторна робота №3

2.4.1. Завдання №3.1 (арифметичний цикл)

Мета:

навчитись складати блок-схеми алгоритмів циклічної структури типу арифметичний цикл;

навчитись використовувати для організації арифметичних циклів оператор управління системи програмування Visual Basic 6.0 – For…Next;

набути навичок створення багаторядкового текстового поля.

Теоретичні відомості.

Для виконання лабораторної роботи необхідно вивчити теоретичний матеріал, який розташований на ст. 10, ст. 48 – ст. 49, ст. 56 – ст. 61 даних методичних вказівок. Література: [1; 2; 3].

ЗРАЗОК ВИКОНАННЯ ЗАВДАННЯ

Умова. Скласти схему та програму для обчислення значень функції:

y

arctg (b x)

;

b 0,75

; x 1,35; 1,4; 1,45;

... ; 2,0 , де

 

 

1 sin 2 x

 

 

 

аргумент х змінюється від х1 до хn із кроком у вигляді таблиці значень x та y. Значення y вивести із чотирма знаками після коми.

Порядок виконання завдання

І. Скласти алгоритм обчислення зна-

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

Кількість повторень у такому циклі можна визначити за формулою

nxn x1 1.

dx

Цикл із відомою кількістю повторень називається арифметичним.

Для реалізації циклу використаємо опе-

ратор For … Next.

Введемо початкове значення параметра циклу – x1 = 1,35; відповідно кінцеве – xn = 2,0; крок зміни – dx = x2 - x1 = 0,05.

111

х. Результати обчислень вивести

Схема

Початок

Введення b, x1, xn, dx

x = x1, xn, dx

yarctg (bx) 1 sin 2 x

Виведення x, y

Кінець

. Реалізація етапу візуального програмування.

ІІ.1. Розробити форму та її вміст. Для реалізації завдання будемо використовувати одну екранну форму. Форма повинна вміщувати дві командні кнопки та багаторядкове текстове поле, у яке здійснюватиметься вивід x та y. Початкові дані b, x1, xn, dx будуть виведені на форму за допомогою оператора Print.

Щоб знати, де знаходяться початкові дані, а де результати розрахунків, їх необхідно підписати, створивши до них поля написів (мітки). У вікні форми слід запрограмувати наступні об’єкти:

мітки Label1, Label2;

текстове поле Text1 для виведення даних;

командні кнопки Command1, Command2.

ІІ.2. Для накреслених об’єктів слід змінити такі властивості:

Об’єкт

Властивість

Пояснення

Значення

властивостей

 

 

 

Text1

Text

Введення тексту

Пусто.

 

 

або пусто

 

 

MultiLine

Багаторядкове

True

 

ScrollBars

Наявність смуг

3Both (горизонтальна та

 

 

прокручування

вертикальна)

Label1

Caption

Текст надпису

Початкові дані

Label2

Caption

Текст надпису

Виводиться під час ви-

 

 

 

конання програми

Command1

Caption

Текст надпису

Розрахунки

Command2

Caption

Текст надпису

Вихід

 

 

 

 

Інші властивості об’єктам задати самостійно.

. Приступаємо до етапу програмування у вхідному коді.

ІІІ.1. Два рази клацнути по кнопці<Розрахунки>. У вікні Project1–Form1 (Code) з’явиться заголовок процедури Private Sub Command1_Click() та її кінець End Sub. Після заголовку процедури набрати текст (тіло програми) (рис. 11).

ІІІ.2. Два рази клацнути по кнопці <Вихід>. У вікні Project1–Form1 (Code) з’явиться заголовок процедури та її кінець. Після заголовку процедури набрати

End (рис. 11).

IV. Після завершення написання кодів натиснути кнопку < Start > на панелі інструментів Standard (Стандартна). З’явиться вікно форми Арифметичний цикл. Клацнути по кнопці <Розрахунки>. (рис. 12). Переписати результати розрахунків.

V. Для завершення роботи й повернення у вікно коду натисніть командну кнопку <Вихід>.

VI. Збережіть проект у папку Lab_3(1).

112

Рис. 11. Вікно Project-Form1 (Code)

Рис. 12. Форма з результатами розрахунків

113

ІНДИВІДУАЛЬНІ ЗАВДАННЯ

Скласти схему та програму для обчислення відповідної до кожного варіанту функції. Аргумент x змінюється від x1 до xn із кроком x. Параметри x1 , xn , x визначити із зазначеної послідовності зміни аргументу. Вивести початкові дані та результати обчислень у вигляді таблиці значень x, y.

№1

№2

№3

№4

№5

№6

№7

y

arctg(bx)

 

; b 0,75 ;

x 1,3;

1,4; 1,5; ... ;

2,5

1 sin 2x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

 

 

 

a bx

;

a 19,6;

 

b 7,8;

x 14,6; 14,7; 14,8;

... 16

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ln2 x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

a ln 2 x

;

 

a 1,38;

b 1,26;

x 6;

7; 8; ...

;

15

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b

 

 

 

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

sin

x

cos x

;

b 1,68;

x 1,2;

1,4;

1,6; ...

;

2,4

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x bx

 

 

 

 

 

 

 

 

 

 

y

 

 

ln

 

x b

 

 

 

;

 

b 0,36;

 

a 5,5;

x 1; 1,5;

2; ... ;

8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

x3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

 

 

 

 

 

eax

b

;

 

b 0,9;

a 1,85;

x 1;

1,1; 1,2; ... ; 2

 

1 cos2 x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

a sin2 x

 

;

b 1,24;

a 0,67;

x 10,2; 10,4; 10,6;

... ; 12

 

 

cosx b2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№8

y

a

x bx

 

; b 2,8;

a 0,45; x 4;

4,2;

4,4; ... ;6

 

 

lnx a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b

;

 

 

 

 

 

 

№9

y

 

 

ax

b 20,2;

 

a 0,76; x 3,5;

3,6;

3,7;

... ; 5

 

 

 

 

 

 

 

 

 

tgx2

 

 

 

 

 

 

№10

y

ea bx

;

b 4,6;

a 2,5; x 0,75; 0,8; 0,85;

... ; 1,5

2

 

 

 

 

b lnx

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

114

 

 

 

№11

№12

№13

№14

№15

№16

№17

№18

y

arctg(b

 

x)

;

a 7,38;

b 0,3;

x 9; 10; 11; ... ;

17

 

 

 

 

1 ax

 

 

 

 

y tg(ax b); a 0,55; b 0,75; x 4,2; 4,4; 4,6; ... ; 6 ex ea

y

sin(a x)

;

a 0,28;

b 1,35;

x 0,5; 0,6;

0,7;

... 1,5

 

 

 

 

ax b

 

 

 

 

 

y

 

ex b

; a 0,9;

b 0,66;

x 1,3; 1,4;

1,5;

... 2,5

 

ab cosx2

 

 

 

 

 

 

 

y lnx ax; a 0,85; b 1,5; x 17,2; 17,3; 17,4; ... ; 18,5 sinb x

y

tg(a3 x3

)

;

 

a 1,16;

b 2,5;

x 0,25; 0,5;

0,75;

... 1,75

 

 

 

 

 

 

 

 

 

 

 

b3 x2

 

 

 

 

 

 

 

 

 

 

 

 

 

1

 

 

 

 

 

y

 

bx

 

; a 0,4; b 10,8; x 0,8; 0,9; 1;

... ; 2

 

 

 

 

 

 

 

 

 

 

0,5 sin(a x)

 

 

 

 

 

 

 

 

b x

 

 

 

 

 

 

 

 

 

 

y

a e

 

;

 

 

a 1,28;

b 0,3;

x 12,6; 12,7;

12,8;

... 14

 

2

 

 

 

 

 

lnx

 

 

 

 

 

 

 

 

 

 

№19

y

a2 sin(b x)

; a 0,25; b 0,68; x 1,1; 1,3;1,5;

...;3

 

 

 

 

 

1,8 cos2(a x)

 

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

 

 

 

№20

y

b sin x

;

a 1,6;

b 1,25;

x 0,2;

0,4;

0,6; ... ;

2

x

 

 

 

 

a e

 

 

 

 

 

 

 

 

 

 

№21

y

sin2 x a

;

a 1,8;

b 0,34;

x 6;

6,1;

6,2 ; ... 8

 

 

 

 

b x

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

115

 

 

 

 

№22

y

a tgx2

 

 

 

;

 

 

 

 

 

a 0,44; b 2,28; x 6,5; 7;

7,5; ... 10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b 0,7x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№23

y

ln(a2 x)

;

 

 

 

a 3,2;

b 0,45;

x 0,6;

0,8; 1;

... ;

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

b sinx2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

y

 

a

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№24

 

bx

;

 

 

 

a 17,6; b 10,45;

x 1,9; 2;

2,1;

... ;

3,5

 

 

 

 

 

 

 

 

 

2

 

 

 

 

 

 

1 cosx

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№25

y

ln(a x)2

;

 

a 8,24;

x 24; 25;

26;

... ;

35

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

2

x

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

tgx

 

 

 

 

 

 

 

 

№26

y

 

 

 

 

 

 

 

 

 

a

 

 

; a 7,32; b 0,05; x 13,3; 13,4;

13,5; ... ; 14,5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 ln(b x)

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1 tg(x a)2

 

 

 

 

x 1,25;

 

 

 

 

 

 

3

№27

y

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

a 4,1;

b 0,96;

1,5; 1,75; ...

;

 

 

 

 

 

 

 

 

b e

x

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№28

y

 

 

 

 

 

ex ea

 

 

 

 

;

 

 

 

a 2;

b 1,6;

x 0,6;

0,8; 1;

...;

2

 

 

 

b sinx

2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

;

 

 

 

 

 

 

 

№29

y

 

 

 

 

 

 

ax b

 

a 1,35; b 0,98; x 7,5;8; 8,5; ... ;

10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

lnx 3,5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

№30

y

1 sin(b2 x2

)

; a 4,3;

b 2,5; x 5,3;

5,4;

5,5;

... ;

7

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

a

 

x 2,5

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

116

2.4.2. Завдання №3.2 (ітераційний цикл)

Мета:

навчитись складати блок-схеми алгоритмів циклічної структури (ітераційний цикл);

навчитись використовувати для організації ітераційних циклів оператор управління системи програмування Visual Basic 6.0 – Do…Loop;

ознайомитись з оператором Option Base 1 та функцією створення маси-

ву Array;

набути навичок виведення результатів розрахунків у вигляді таблиці у форму за допомогою оператора Print.

Теоретичні відомості.

Для виконання лабораторної роботи необхідно вивчити теоретичний матеріал, який розташований на ст. 54; ст. 56; ст. 63 – ст. 64 даних методичних вказівок. Література: [1; 2; 3]

ЗРАЗОК ВИКОНАННЯ ЗАВДАННЯ

Умова. Обчислити наближене значення суми спадного ряду

 

 

ln i 5

 

(c d)

 

 

s(t) si t

 

 

 

 

e

 

 

 

 

t

 

 

i

3

 

 

 

 

 

 

i 1

i 1

 

2

 

 

 

 

 

 

з точністю = 10-5 та = 10-7 для

значень параметру t1

t tn із кроком t, де

c = 1.9; d = 3,2; t1 = 1,5; tn = 3,5;

t = 0,5.

 

 

 

 

 

 

 

 

 

 

Обчислювати суму спадного ряду s(t) слід до того часу, доки величина

поточної відносної

похибки розрахунку

 

si t

 

 

перевищує . Необхідно

i

 

 

 

 

i > imax переривання

 

 

 

 

 

s

 

 

 

передбачити при

 

обчислень

 

на той випадок, коли

виконання умови εi < не відбувається при imax

підсумованих членах ряду, де

imax – максимально припустима кількість ітерацій (обмежувач числа підсумованих членів ряду). Точність розрахунків досягнута, як тільки величина εi стане менше ніж . Знайти істинну похибку розрахунку для одного значення параметра t = t1 за формулою:

 

 

 

s t1

,10

5

 

 

true

 

 

 

 

 

 

 

 

1 s t ,10

7

 

 

 

1

 

 

 

 

й зробити висновок щодо точності розрахунків.

Порядок виконання завдання

I. Скласти алгоритм обчислення наближеного значення суми спадного ряду для кожного значення параметру t. Алгоритм повинен складатися із двох циклів, причому другий цикл необхідно вкласти в перший. Основна умова організації вкладених циклів: цикли не повинні перехрещуватись. Для параметру t організовуємо зовнішній арифметичний цикл (оператор For…Next). Для обчислення наближеного значення суми спадного ряду організовуємо внутрішній ітераційний цикл тому, що нам невідомо, через яку кількість

117

повторень операторів тіла циклу буде досягнута необхідна точність розрахунків εi < . Використовуємо таку форму запису оператора Do…Loop, коли спочатку здійснюється перевірка умови повторення циклу і якщо вона хибна, то цикл ні разу не виконується. Початкові дані введемо, зчитуючи їх із масиву Array.

 

 

Схема

 

 

Початок

 

 

Введення

c, d, t1, tn, t, , imax

 

 

t t1,tn, t

i = 0; s = 0; εi = 1; p = 1

 

 

 

 

 

 

εi> /p

 

 

i imax

 

 

+

 

 

 

 

i = i + 1

s

i

ln i 5 e (c d ) t

 

i3

2

 

 

s = s + si

 

 

 

i

si t

 

 

 

s

 

 

 

 

 

 

Виведення

 

 

t, s, εi, i

 

 

 

 

Кінець

. Реалізація етапу візуального програмування.

ІІ.1. Розробити форму та її вміст. Для реалізації завдання будемо використовувати одну екранну форму. Форма повинна вміщувати: дві командні кнопки. Виведення результатів розрахунків здійснюватиметься у форму за допомогою оператора Print. Щоб знати, де виведені початкові дані, а де результати розрахунків, їх необхідно підписати, створивши до них поля написів (мітки). У вікні форми слід запрограмувати наступні об’єкти:

118

мітки Label1, Label2;

командні кнопки Command1, Command2.

ІІ.2. Для накреслених об’єктів слід змінити такі властивості: під час проектування форми обов’язково задати для Label1 та Label2 властивість

AutoSize = True, для Label1 задати Caption = « Початкові дані », для Label2

властивість Caption задаємо під час виконання програми. Інші властивості об’єктам задати самостійно.

. Приступити до етапу програмування у вхідному коді.

ІІІ.1. Два рази клацнути по кнопці<Розрахунки>. У вікні Project1–Form1 (Code) з’явиться заголовок процедури Private Sub Command1_Click() та її кінець End Sub. Після заголовку процедури набрати текст (тіло програми) (рис. 13).

ІІІ.2. Два рази клацнути по кнопці <Вихід>. У вікні Project1–Form1 (Code) з’явиться заголовок процедури Private Sub Command2_Click() та її кінець End Sub. Після заголовку процедури набрати End (рис. 13).

Рис. 13. Вікно Project-Form1 (Code)

IV. Після завершення написання кодів натиснути кнопку <Start> на панелі інструментів Standard (Стандартна). Клацнути по кнопці <Розрахунки>. З’явиться форма з результатами розрахунків (рис. 14). Переписати результати розрахунків.

119