Модуль 1_VBasic

This document is created with trial version of Document2PDF Pilot 2.16.100.

SR = SR*(100+V)/100 i = i+1

Loop

lblSR.Caption = Str(SR) End Sub

5.3Оператор циклу Do. . . Loop While

Уциклі цього типу оператори, що входять у тіло циклу виконуються обов’язково хоча б один раз, після цього відбувається перевірка умови і, якщо умова не істинна, керування передається наступному після рядка Loop оператору - цикл завершується. При істинності умови, починається наступна ітерація циклу.

Загальна форма оператора:

Do

Блок_операторів

Loop While Умова

Якщо спробувати вирішити задачу визначення суми ряду чисел із використанням оператора Do. . . Loop While, алгоритм виконання пр ограми зміниться (рис.5.3.1).

This document is created with trial version of Document2PDF Pilot 2.16.100.

Початок

Введення суми внеску SPV

Введення

банківського відсотку V

Введення періоду P

SR = SPV	i = 1
SR = SR ×	100 + V
	100

i = i + 1

ні

i <= P

Друкування так суми на рахунку

SR

Кінець

Рисунок 5.3.1 - Блок-схема розв’язання задачі обчислення суми на рахунку з використанням оператора Do ... Loop While

Процедура cmdSolve _Click() прийме такий вид:

Private Sub cmdSolve_Click()

SPV = Val(txtSPV.Text) V = Val(txtV.Text)

P = Val(txtP.Text) SR = SPV

i = 1 Do

SR = SR*(100+V)/100 i = i+1

Loop While i<= P lblSR.Caption = Str(SR)

End Sub

This document is created with trial version of Document2PDF Pilot 2.16.100.

У розглянутих раніше прикладах використовувалися прості перемінні, котрі вводилися в текстові вікна. У наступному прикладі розгл янемо

арифметичний цикл з індексованими перемінними , тобто роботу з масивом.

Приклад 1: Написати програму обчислення суми товарообігу підприємства за місяць, якщо відомий щоденний товарообіг по формулі

n

y = å x i

i =1

де: n – кількість днів у місяці, xi – щоденний товарообіг, i – поточний день місяця.

Форма проекту представлена на малюнку:

Виконання:

У даному прикладі з'явився новий запис - xi, що називається индек - сированной перемінної і використовується при роботі з масивами. Для занесення таких даних можна використовувати засобу убудованого діалогу –

панель уведення . Панель уведення викликається функцією				InputBox.
Спрощений формат функції:
< перемінна > = InputBox (“текст запрошення, видаваного користувачу“)
		Операції по виконанню приклада - «Цикл із запитом»
	№	Операція	Виконання
	1	Створення	Дії аналогічні раніше розглянутим прикладам.
		електроной форми і
		завдання властивос-
		тей її елементів
	2	Завдання функції	Установити об'єкт Vixod і для події Click
		кнопки Вихід	записати:
			Private Sub Viхоd_Click()
			End
			End Sub
	3	Завдання функцій	Установити об'єкт Och (властивість Name
		кнопки Очищення	має ім'я Och ) і для події Click записати:

This document is created with trial version of Document2PDF Pilot 2.16.100.

		Private Sub Och_Click()
		n.Text = “ “
		y.Text = “ “
		End Sub
5	Обчислення суми	Установити об'єкт Rachet і для події Click
	товарообігу.	записати:
		Private Sub Rachet_Click()
		Dim i As Integer, p As Single
		’ оголошення параметра циклу i як цілого
		’ оголошення вводимих слагаемих p у формі з
		плавающей комой
		For і = 1 To n
		p = InputBox("Введіть Xi")
		y.Text = Val(y.Text) + p
		Next i
		End Sub
5	Зберегти проект з	Меню File → команда Save Project → задати
	ім'ям «Цикл із	ім'я файлу і папку.
	запитом»
6	Налагодити програму	Меню Run → команда Start, увести кількість
		днів – 2, клацнути по кнопці Розрахунок,
		ввести у вікно запиту дані контрольного
		приклада X1 = 5, X2 = 7, повинний вийти
		відповідь у = 12.
7	Налагоджену	Меню File → команда Save Project.
	програму зберегти

Приклад 2.

Підприємство в першому півріччі робило N видів продукції з виторгом від реалізації VNi, а в другому півріччі – M видів з VMi.

1.Визначити прибуток від реалізації продукції підприємства за перше півріччя:

n

V 1= åVN i

i

m

V 2 = åVM i

i

2.Визначити прибуток від реалізації продукції підприємства за друге півріччя:

This document is created with trial version of Document2PDF Pilot 2.16.100.

3. Визначити виторг від реалізації продукції підприємства за рік:

VR = V 1 + V 2

Зберегти форму і проект на робочому столі з ім'ям – «Виторг»

Програмний код
Private Sub cmdClear_Click()
n.Text = ""
m.Text = ""
v1.Text = ""
v2.Text = ""
vr.Text = ""
End Sub
Private Sub cmdRachet_Click()
Dim і As Integer, p As Single, d As Single
For і = 1 To n
p = InputBox("Введіть Ni")
v1.Text = Val(v1.Text) + p
Next i
For i = 1 To m
d = InputBox("Введіть Mi")
v2.Text = Val(v2.Text) + d
Next I
vr = Val(v1.Text) + Val(v2.Text)
End Sub
Private Sub cmdExit_Click()
End
End Sub
6. Завдання для лабораторної роботи №	3 на тему	"Програмування
циклічних обчислювальних процесів. Робота з масивами ”.
Розробити програму за індивідуальним варіантом. П		ри розробці

програми слід створити форму, програмний код, перевірити дію програми. Далі необхідно зберегти програму на магнітному диску, надр укувати форму та код програми. Звіт про роботу повинен вміщувати:

-блок-схему алгоритмічного процесу розв’язання задачі;

-роздруковану форму програми;

-роздрукований код програми.

Варіант 1

Розробити програму, яка дозволяє ввести ціле позитивне число Х, розрахувати значення функції Y за формулою:

x

Y= ∏I

i=1

This document is created with trial version of Document2PDF Pilot 2.16.100.

П – добуток чисел від 1 до Х (Х!).

Варіант 2

Розробити програму, яка дозволяє ввести ціле позитивне число Х, розрахувати значення функції Y за формулою:

x

Y = å(N − 3)

n=4

∑– сума чисел від 4 до Х (Х!).

Варіант 3

Розробити програму, яка дозволяє ввести ціле позитивне число Х, розрахувати значення функції В за формулою:

x

Y = Õ2* N

n=12

П– добуток чисел від 12 до Х (Х!).

Варіант 4

Розробити програму, яка дозволяє ввести ціле позитивне число Х, розрахувати значення функції В за формулою:

x

Y = åN 2

n=8

∑– сума чисел від 8 до Х (Х!).

Варіант 5

Розробити програму, яка дозволяє ввести ціле позитивне число Х, розрахувати значення функції В за формулою:

x

Y = åN

n=10

∑– сума чисел від 10 до Х (Х!).

Варіант 6

Розробити програму, яка дозволяє ввести ціле позитивне число Х, розрахувати значення функції В за формулою:

x

Y = ÕN

n =2

П – добуток чисел від 2 до Х (Х!).

This document is created with trial version of Document2PDF Pilot 2.16.100.

Варіант 7

Розробити програму, яка дозволяє ввести ціле позитивне число Х, розрахувати значення функції В за формулою:

x

Y = å(N − X )

n=20

∑– сума чисел від 20 до Х (Х!).

Варіант 8

Визначити середній бал здачі студентами екзаменів з інформатики й історії (кожного) і середній бал по двох дисциплінах, якщо відомо, що інформатику здавали N студентів, а історію – К студентів.

			1			n		-	середній бал здачі екзамену з інформатики.
	y	=			å x i
				n
					i =1
			1			k
	z	=			åm i			-	середній бал здачі екзамену з історії.
				k
					i	=1
		S	=		Y	+ Z		-	середній бал здачі екзамену з двох дисциплін.
						2

Результати розмістити в окремих полях.

Варіант 9

Визначити середній бал здачі студентом екзаменів з результатів двох сесій. У першу сесію студент здавав N іспитів, у другу – K іспитів.

n

y = å x i

i =1

k

z = åm i

i =1

	S =	Y + Z
		N + K

Варіант 10

Визначити:

-сума балів за результатами першої сесії.

-сума балів за результатами другої сесії.

-середній бал здачі екзамену з результатів двох сесій.

1.Середню виплачувану заробітну плату співробітників підприємства на місяць.

2.Суму відрахувань підприємством у пенсійний фонд.

Умовні позначки:

N – кількість співробітників підприємства,

Xi – сума нарахованої заробітної плати кожного співробітника на місяць,

Pi – сума відрахувань у пенсійний фонд кожним співробітником,

This document is created with trial version of Document2PDF Pilot 2.16.100.

			Ki – сума прибуткового податку, стягнутого з кожного
			співробітника.
		1	n
	y =		å(x i − k i − p i ) - середня заробітна плата до виплати.
		N
			i =1

n

z = å p i - сума відрахувань у пенсійний фонд.

i =1

Результати розмістити в окремих полях.

Варіант 11

Підприємство суспільного харчування реалізує в N точках обідню й іншу продукцію. Визначити:

1. Обсяг роздрібного продажу обідньої продукції		n
		RP = åR i
по всіх точках у цілому	–
		i =1
2. Обсяг роздрібного продажу іншої продукції		n
по всіх точках у цілому	-	PP = å P i
3. Загальний обсяг роздрібного продажу власної		i =1
		S = RP + PP
продукції підприємства	-
Де: Ri - обсяг роздрібного продажу обідньої продукції
по кожній точці;

Pi - обсяг роздрібного продажу іншої продукції по кожній точці.

Результати розмістити в окремих полях.

Варіант 12

Визначити:

1. Суму витрат на електроенергію для виробничих нестатків підприємства за рік, якщо відомі:

Mi – масив потужностей кожної енергоустановки (квт/година), Ti - масив часу роботи кожної енергоустановки (у годину), Ri – тариф за 1 квт/годину електроенергії.

10	i *T i * R i ) - сума витрат на електроенергію
S = å(M
i =1	.

10

2. Загальний час роботи всіх енергоустановок - V = åT i

Результати розмістити в окремих полях.

i =1

Варіант 13

Визначити:

1. Собівартість виробу, що виготовляється підприємством, якщо відомі: N – кількість видів матеріалів необхідних для виготовлення виробу,

Ki - кількість кожного матеріалу необхідного для виготовлення виробу, Ci - ціна кожного виду матеріалу.

n

Y = å K i *C i

i =1

This document is created with trial version of Document2PDF Pilot 2.16.100.

1. Визначити суму від реалізації за рік, якщо відомі:

Mi – кількість одиниць виробу, реалізованих на місяць, Pi - відсоток планового прибутку від реалізації виробу.

12 ( )

S = åY *M i * 1+P i

i =1

Результати розмістити в окремих полях.

Варіант 14

Підприємство в першому півріччі робило N видів продукції із собівартістю кожного виду SNi і прибутком від реалізації VNi, а в другому півріччі – M видів із собівартістю SMi і прибутком від реалізації VMi.

Визначити рентабельність підприємства в кожнім півріччі.

	ån (VN i − SN i )
RN =		i =1				- рентабельність підприємства в 1-м
			n
			åVN i			півріччі
			i =1
		åm	(VM i − SM i		)
RM =		i =1				- рентабельність підприємства в 2-м і
			m
			å			піврічч
			i =1 VM i
Результати розмістити в окремих полях.
Варіант 15
Визначити: 1. Суму, що сплачується N квартиронаймачами за комунальні
послуги (S) за рік, якщо відомі:

Gi – сума оплати за газ i – м квартиронаймачем;

Vi - сума оплати за воду i – м квартиронаймачем;

Ti - сума оплати за опалення i – м квартиронаймачем;

S = åN (G i +V i + T i )
i =1	N квартиронаймачами за спожиту
2. Суму, що сплачується
элекроэнергию (Z), якщо відомі:

Ki – кількість витраченої електроенергії ( у квт/годину) i – м квартиронаймачем;

R – тариф за 1 квт/годину електроенергії.

N

Z = å K i * R

i = 1

Результати розмістити в окремих полях .

This document is created with trial version of Document2PDF Pilot 2.16.100.

7. Завдання для аудиторної контрольної роботи за темою

“Використання елементів управління в програмах. Робота з формами. Поняття методу”.

7.1. Елементи управління - смуги прокручування, перемикачі, прапорці, групи, списки, що розчиняються

Горизонтальну або вертикальну смуги прокручування можна помістити

у форму за допомогою відповідних елементів на панелі: HscrollBar, VscrollBar. Прийнято, щоб імена смуг прокручування у програмах починалися зі сполучення hsb для горизонтальних смуг і vsb для вертикальних.

Переміщення бігунка по смузі ∙ призводить до зміни власт ивості Value елемента, що може знаходиться в діапазоні, обумовленому властивостями

Max і Min елемента. Властивість Small		Change		визначає крок зміни
властивості Value при використанні кнопок		,	або	,	. У програмах
смуги прокруч ування використовуються, на відміну від вікон, не для
переміщення всередині в	ікна, а для визначення значення засобом

переміщення бігунка. У результаті в иконання переміщення бігунка по смузі прокручування відб увається п одія Change, тобто події Change відповідає зміна місця розташування бігунка на смузі, подія відбувається після того, як бігунок займе нове місце. Процесу п ереміщення бігунка відповідає подія Scroll, лише бігунок зрушив з місця – відбулась подія Scroll.

Для перемикачів (OptionButton) в області діалогу, обмеженою рамкою (Frame), у стані «включено» значення властивості Value дорівнює True (Істина), у стані «вимкнено» - False (Брехня). Аналізуючи значення властивості Value кожного перемикача можна виконувати визначені дії. Імена перемикачів доцільно починати зі сполучень літер opt, груп - fra.

Елемент прапорець (Check Box) у стані «включено» одержує значення властивості Value - True (1), у стані «вимкнено» - False (0). У програмах при аналізі стану прапорців слід використовувати значення 1 або 0. Імена прапорців слід починати зі сполучень літер chk.

Списки, що розчиняються, створюються за допомогою елемента (ComboBox), вони використовуються для вибору одного значення з переліку можливих. Імена списків, що розчиняються, доцільно починати зі сполучень літер cbo. Перелік можливих значень визначається як значення властивості List об’єкта. Значення властивості Text відповідає поточному стану списку, дорівнює тому значенню, яке обрано зі списку.

∙ Переміщення повзунка виконується перетягуванням при натиснутій лівій кнопці миші або за допомогою кнопок , , ,