Карпович І. М., Савич В. О., Шепетько Ю. О.

І. М. Карпович

В. О. Савич

Ю. О. Шепетько

 

 

ОСНОВИ ПРОГРАМУВАННЯ МОВОЮ

VISUAL BASIC. ПРАКТИКУМ

Навчальний посібник

Європейська кредитно-трансферна система

 

Для студентів напрямів підготовки

6.030504 “Економіка підприємства”

6.030505 ”Управління персоналом та економіка праці”

6.030508 “Фінанси і кредит”

6.030509 “Облік і аудит”

6.030601 ”Менеджмент”

Рівне – 2011

УДК 004(075.8)

ББК 32.973Я73

К-26

Затверджено вченою радою Національного університету водного господарства та природокористування.

Протокол № 9 від 30 вересня 2011 р.

 

 

Рецензенти:

Бомба А. Я., доктор технічних наук, професор Рівненського державного гуманітарного університету;

Кузнецова Т. В., кандидат економічних наук, доцент Національного університету водного господарства та природокористування, м. Рівне.

Карпович І. М., Савич В. О., Шепетько Ю. О.

К - 26. Основи програмування мовою Visual Basic. Практикум. Навчальний посібник. – Рівне: НУВГП, 2011. – 117 с.

 

 

Розглянуто основні напрямки алгоритмізації і програмування економічних задач з використанням методів візуального проектування, принципи системного підходу до опрацювання та аналізу економічної інформації на ПК.

Для студентів, які здобувають освіту в галузях знань “Економіка та підприємництво” та ”Менеджмент і адміністрування”, а також спеціалістів-практиків, які займаються проблемами автоматизації та інформатизації діяльності підприємств.

УДК 004(075.8)

ББК 32.973Я73

© Карпович І.М., Савич В.О., Шепетько Ю.О., 2011

© НУВГП, 2011

Зміст

Передмова...................................................................................... 6

Лабораторна робота № 1. Знайомство з середовищем розробки проектів Visual Basic 7

Лабораторна робота № 2. Розробка проектів, що реалізують лінійні обчислювальні процеси 25

Лабораторна робота № 3. Реалізація проектів, що містять обчислювальні процеси з розгалуженнями 38

Лабораторна робота №4. Розробка проектів, що реалізують циклічні обчислювальні процеси 64

Оператори циклу з умовою............................................... 72

Лабораторна робота №5. Розв’язування задач економічного змісту з використанням одновимірних масивів....................................................................................................... 92

Лабораторна робота №6. Вкладені цикли. Використання двовимірних масивів при розв’язуванні задач економічного характеру........................................................... 107

Тестові завдання........................................................................ 118

Література.................................................................................. 129

Передмова

Навчальний посібник “Основи програмування мовою Visual Basic. Практикум” призначено для базової підготовки бакалаврів напрямів “Обік і аудит”, “Менеджмент”, “Фінанси і кредит”, “Економіка підприємства”, “Управління персоналом та економіка праці” відповідно до вимог державного стандарту освіти. Його завдання – формування основ інформаційних знань та практичних навичок, необхідних для засвоєння нових програмних засобів та пакетів прикладних програм при вивченні фахових дисциплін.

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

Навчальний посібник, на думку авторів, сприятиме розвитку у студентів системного мислення, формуватиме у майбутніх фахівців вміння використовувати методику комплексного аналітичного дослідження з використанням інформаційних засобів для відшукання оптимальних шляхів вирішення виробничих проблем.

Комплекс лабораторних робіт, викладений у посібнику, пропонує методологію формалізації та алгоритмізації економічних задач, а також технологію розробки прикладних систем для їх розв’язання засобами Visual Basic, яка проілюстрована великою кількістю прикладів. Інформаційна частина посібника дає можливість отримати загальне уявлення про інтерфейс та основні елементи системи візуального проектування.

Практикум передбачає систематичну роботу кожного студента за комп’ютером, а також теоретичну підготовку студента до виконання лабораторної роботи. Для самостійної роботи, закріплення та практичної апробації отриманих знань в кінці кожного розділу вміщено контрольні запитання. Поглибленому вивченню матеріалу сприятимуть літературні та електронні джерела, перелік яких наведено наприкінці посібника.

Навчальний посібник – результат спільної праці з рівною часткою творчого внеску кожного з авторів.

Лабораторна робота № 1. Знайомство з середовищем розробки проектів Visual Basic

 

Мета: Набути уміння і навички роботи з компонентами середовища розробки проектів Visual Basic (VВ) та створення форм за зразком.

 

Завдання для виконання лабораторної роботи № 1

 

I. Завантажити середовище Visual Basic для створення нового проекту.

II. Вилучити панель елементів керування, а потім її знову відновити.

III. Вилучити, а потім відновити вікна провідника проекту і властивостей.

IV. Визначити значення таких властивостей форми, як Name, Caption.

V. Подвійним клацанням миші на формі пред’явити вікно коду.

VI. За допомогою вікна провідника проекту перейти з вікна коду у вікно форми.

VII. Створити форму із заголовком “Лінійні алгоритми” для обчислення виразів

, , ,

написати код для розрахунку значення цих виразів, розташувавши поля у формі згідно зразка №1 (рис. 1.8) (використати поля редагування TextBox, поля з текстовими написами Label, командну кнопку CommandButton та задати їх основні властивості: підпис Caption, шрифт Font, текст Text).

VIII. Формі зразка №1 (рис.1.8) надати вигляду форми зразка №2 (рис.1.9), змінивши підписи Caption на об’єктах типу Label і CommandButton та очистивши поле редагування (значення Text замінити на порожньо). Приклад побудови алгоритму розв’язування задачі наведено на рис. 1.10.

 

 

Рис. 1.8. Зразок №1

 

 

Рис. 1.9. Зразок №2

 

 

Рис. 1.10. Алгоритм розв’язування задачі

 

IX. Запрограмувати кнопку “ Обчислити ” згідно алгоритму.

Приклад побудови коду для обчислення виразів:

 

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

x = (Cos(a) + Exp(b)) / 2 / (a + 1)

y = (a - b) / Exp(1)

z = (x + 2) ^ 2 + y ^ 2

Text3.Text = Str(x)

Text4.Text = Str(y)

Text5.Text = Str(z)

End Sub

X. Зберегти проект у папці Lab1_z1.

XI. Виконати проект.

XII. Продемонструвати створений проект викладачеві. Записати у зошит отримані результати.

XIII. Розробити форму для обчислення суми виплат S за формулою:

,

Для розробки форми потрібно врахувати математичну модель, яка передбачає задання початкового вкладу V, терміну вкладу T і річної відсоткової ставки P та подальшого обчислення суми виплат S. Для розв’язування задачі можна використати зразки розробки форми, подані на рис. 1.11, 1.12.

 

 

Рис. 1.11. Зразок №3

 

Рис. 1.12. Зразок №4

 

Розглянемо один з варіантів коду для розв’язування задачі:

 

Private Sub Command1_Click()

Dim V, S As Currency

V = Val(Text2.Text)

T = Val(Text3.Text)

P = Val(Text4.Text)

S = V * (1 + P / 100) ^ T

Text5.Text = Str(S)

End Sub

 

XIV. Зберегти проект у папці Lab1_z2.

XV. Виконати проект. Продемонструвати створений проект викладачеві. Записати у зошит отримані результати.

XVI. Захистити виконану роботу.

Контрольні запитання

1. Які основні елементи середовища проектування Visual Basic?

2. Назвіть елементи управління додатком та їх функції.

3. Назвіть основні властивості елементів управління додатком.

4. Яке призначення форми у VB?

5. Які з об’єктів, розміщених на екранній формі, можуть бути обов’язковими, а які необов’язковими (надлишковими)?

6. Для чого потрібна сітка з крапок на екранній формі?

7. Як вмикається панель елементів керування?

8. Охарактеризуйте вікно властивостей.

9. Чим відрізняється зміст властивостей Left і Тор екранної форми?

10. Які два способи зміни розмірів і положення об'єкта на екранній формі можна використовувати для їх виправлення (коригування)?

11. Яке призначення вікна властивостей?

12. Охарактеризуйте способи збереження проекту, форми.

Приклад 3.

Dim НомерТелефону As String* 12

 

Значенням змінної НомерТелефону є текстовий рядок фіксованої довжини (12 символів), наприклад, [phone]. До рядка з меншою кількістю символів Visual Basic автоматично припише необхідну кількість пропусків праворуч.

 

Константи – це дані, значення яких не змінюються в процесі виконання програми. Як і змінні, константи оголошуються на початку тексту програмного коду. Для оголошення констант використовується ключове слово Const. Одночасно з оголошенням констант їм присвоюються значення.

Оголошення константи має такий синтаксис:

Const <Ім’яКонстанти> [As Тип] = <ЗначеннняКонстанти >

Visual Basic містить велику кількість вбудованих констант майже для всіх випадків, які зустрічаються у практиці програмування коду: константи кольору, повідомлень тощо. Усі вбудовані константи мають префікс vb. Наприклад, константи кольору: vbRed – значення червоного кольору, vbWhite – значення білого кольору і т.д.

 

Завдання для виконання лабораторної роботи № 2

І. Завантажити середовище Visual Basic для створення нового проекту.

ІІ. Розробити форму із заголовком ”Лінійні обчислювальні процеси”, записати алгоритм та ввести програмний код для обчислення наступних виразів:

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.		,
12.
13.
14.
15.

ІІІ. Зберегти проект у папці Lab2_z1. Продемонструвати створений проект викладачеві. Записати отримані результати.

 

ІV. Розробити проект, форму та ввести програмний код для розв’язання наступних задач:

 

1. Обчислити вартість товару та вартість товару з врахуванням торгової надбавки, якщо задано ціну одиниці товару (грн.), кількість товару (шт.) та торгову надбавку (%).

 

2. Обчислити залишок на банківському рахунку після проведення банківської операції, якщо відомий залишок на рахунку до операції, надходження та зняття коштів з рахунку.

 

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

 

4. Обчислити відсоток студентів, що склали іспити на ”відмінно” та ”добре”, якщо відома загальна кількість студентів та кількість студентів, що склали іспити без задовільних оцінок.

 

5. Обчислити відсоток студентів, що не склали іспити, якщо відомо загальну кількість студентів; кількість студентів, що склали іспити без задовільних оцінок; кількість студентів, що склали іспити із задовільними оцінками.

 

6. Обчислити кількість мешканців населеного пункту на кінець року, якщо відомо кількість мешканців на початку року, кількість прибулих, вибулих, народжених та померлих.

 

7. Обчислити рівень виконання навчального навантаження (у відсотках) вчителями школи, якщо відомо заплановану та фактично виконану кількість годин.

 

8. Обчислити вартість партії товару з двох видів, якщо задано ціну одиниці товару та кількість товару кожного виду.

 

9. Обчислити вартість товару та вартість товару з врахуванням торгової знижки, якщо задана ціна одиниці товару (грн.), кількість товару (шт.) та торгова знижка (%).

 

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

11. Обчислити урожайність (ц/га) зернових фермерського господарства, якщо задано площу посівів (га) та валовий збір (т).

 

12. Обчислити суму для оплати за водопостачання за звітний період, якщо задано початкові та поточні покази лічильника, а також вартість 1 м³ води.

 

13. Обчислити суму оплати за електроенергію за звітний період, якщо задано початкові і поточні покази лічильника та вартість 1 кВт-год.

 

14. Обчислити вартість пального (грн), якщо задано ціну 1 л (грн) та витрати пального (л).

 

15. Обчислити суму оплати за опалення, якщо задано вартість опалення 1 м² та опалювальна площа.

 

VІ. Зберегти проект у папці Lab2_z2. Продемонструвати створений проект викладачеві. Записати отримані результати.

 

VІІ. Захистити виконану роботу.

 

Контрольні запитання

1. Що таке змінна? Які правила задання змінних?

2. Назвіть і охарактеризуйте типи даних у Visual Basic.

3. Які способи оголошення змінних у Visual Basic?

4. Як здійснюється оголошення змінної за допомогою суфікса?

5. Назвіть типи змінних у Visual Basic.

6. Що таке арифметичний вираз?

7. Які пріоритети виконання операцій?

8. Чи змінюється значення константи?

9. Яку функцію виконує коментар?

10. Функції та їх використання у Visual Basic.

11. Вбудовані функції VB.

Приклад 1.

Логічний вираз 2.9994 < 2.9995 має значення True;
Логічний вираз 3.1416 <= 3.1416 має значення True;
Логічний вираз 1.3 E -18 < 2.3 E -19 має значення False;
Логічний вираз Y^2< Abs (Y) має значення True для Abs(Y)<1;

 

Розглянемо деякі логічні операції.

Логічне множення And (і) – повертає значення True, якщо всі вирази, які беруть участь в конструкції, мають значення True, в інших випадках повертається значення False.

Операцію логічного множення можна запам'ятати за допомогою такої фрази: ” Значення логічного добутку істинне тільки тоді, коли значення всіх логічних співмножників істинні”. Результати логічного множення наведені в таблиці 3.2.

Таблиця 3.2

Таблиця істинності логічного множення

А	В	A And В
True	True	True
True	False	False
False	True	False
False	False	False

 

” Істинне і Істинне є Істинне, в інших випадках – Хибне ”

Логічне додавання Or (або) – повертає значення True, якщо хоч один з виразів, які беруть участь у конструкції, має значення True. У випадку, коли всі вирази мають значення False, повертається значення False.

Операцію логічного додавання можна запам'ятати за допомогою фрази: ”Значеннялогічної суми хибне тільки тоді, коли значення всіх логічних доданків хибні”. Результати логічного додавання наведені в таблиці 3.3.

Таблиця 3.3

Таблиця істинності логічного додавання

А	В	A Or В
True	True	True
True	False	True
False	True	True
False	False	False

 

” Хибне або Хибне є Хибне, в інших випадках – Істинне ”

 

Логічне заперечення Not (ні) – повертає протилежне значення до значення заданого виразу.

Операцію логічного заперечення можна запам’ятати так: ”Значеннялогічного заперечення хибне, якщо значення виразу істинне і навпаки”. Результати логічного заперечення наведені в таблиці 3.4.

Таблиця 3.4

Таблиця істинності логічного заперечення

А	Not A
True	False
False	True

 

”Не Істинне є Хибне, Не Хибне є Істинне ”

 

Приклад 2.

Логічний вираз (X^2 > 0) Or (X^2 = 0) має значення True;

Логічний вираз (Y^2>= 0) And (Abs (Z) >= 0) має значення True (передбачається, що змінні X, Y і Z мають числовий тип);

Логічний вираз Not (Len (” abc ”) > 0) має значення False;

Логічний вираз (Len (” abc ”) < 3) Or (Len (” abc ”) > 3) має значення False;

Логічний вираз (Len (S1+ S2) >= Len (S1)) And (Len (S1 + S2) >= Len (S2)) має значення True (передбачається, що змінні S1 і S2 мають тип String).

 

Приклад 3.

Розглянемо спрощене юридичне правило:

”Громадянину (громадянці) призначається пенсія, якщо це чоловік і йому більше 60 років або якщо це жінка і їй більше 55 років, або якщо стаж роботи на шкідливому виробництві перевищив 25 років”. Зведемо це правило до логічного виразу, істинність якого означає, що дана особа пенсійного віку.

Визначимо наступні змінні:

Змінна	Значення змінної
Пенсіонер	значення True, якщо людина пенсійного віку, і False, якщо людина не пенсійного віку
Стать$	”чоловік”або ”жінка”
Вік!	вік людини
СтажЗаВислугою!	стаж роботи на шкідливому виробництві (за вислугою років)

 

Використання логічного виразу для наведеного вище юридичного правила можна записати так:

 

Пенсіонер =(Стать$ = ” чоловік ” And Вік! >= 60) _

Or (Стать$ = ” жінка ” And Вік! >= 55) _

Or СтажЗаВислугою! >= 25

Умовний оператор

 

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

 

If <Логічний вираз> Then <Оператор1> [ Else <Onepaтop2> ]

 

В цій конструкції після ключових слів Then та Else записується лише один оператор. Якщо результатом обчислення логічного виразу є значення True, то виконується <Оператор1>,якийзаписаний заключовим словом Then. Якщо логічний вираз набуває значення False, то виконується <Onepaтop2>, записаний заключовим словом Else, або наступний за If оператор, якщо елемент конструкції Else <Onepaтop2> відсутній.

Синтаксис багаторядкового оператора наступний:

If <Логічний вираз> Then

<ПослідовністьОператорів1>

[ Else

<ПослідовністьОператорів2>]

End If

Запис ПослідовнісОператорів1 та ПослідовностьОператорів2 строго позиційований:

Ö в рядку за ключовим словом Then не можна записувати жодного оператора;

Ö в рядку за ключовим словом Else можна записати інший оператор, але йому повинна передувати двокрапка.

Ключові слова End If означають кінець багаторядкового оператора. Їх наявність у цьому випадку обов’язкова.

Якщо результатом обчислення логічного виразу є значення True, то виконується < ПослідовністьОператорів1 >, які записані за ключовим словом Then, а якщо логічний вираз набуває значення False, то – < ПослідовністьОператорів2 >, записаних за ключовим словом Else, або наступний за If…End If оператор, якщо елемент конструкції Else < ПослідовністьОператорів2 > відсутній.

В операторі If перевіряється на істинність тільки одна умова. Якщо ж є потреба виконання операторів чи послідовності операторів залежно від результатів перевірки декількох умов, то це можна зробити за допомогою наступної конструкції:

If <Логічний вираз1> Then

<ПослідовністьОператорів1>

[ ElseIf <Логічний вираз2> Then

<ПослідовністьОператорів2>

…]

[ Else <ПослідовністьОператорівN> ]

End If

 

Приклад 4.

Приклад алгоритму обчислення максимального з двох чисел (Число 1 Число 2) з використанням конструкції If … Then:

 

МаксЧисло = Число1 If Число2 > Число1 Then МаксЧисло = Число2

Приклад 5.

Розглянемо попередній приклад з використаннямконструкції If … Then … Else …:

 

If Число1 > Число2 Then МаксЧисло = Число1 Else _ МаксЧисло = Число2

Приклад 6.

Розглянемо юридичне правило визначення пенсійного стажу: ”Громадянину (громадянці) призначається пенсія, якщо це чоловік і йому більше 60 років або якщо це жінка і їй більше 55 років, або якщо стаж роботи на шкідливому виробництві перевищив 25 років”.

Наприклад, якщо жінці 58 років, з яких вона 37 років проробила на шкідливому виробництві, то пенсійний стаж буде визначатися як максимальне з двох чисел 58-55=3 і 37-25=12 і буде дорівнювати 12 рокам.

Якщо жінці 70 років, з яких вона 10 років проробила на шкідливому виробництві, то її пенсійний стаж за віком (70-55=15) буде перевищувати її пенсійний стаж за вислугою років (10<=25, стаж роботи на шкідливому виробництві не перевищує 25 років, пенсія не призначається) і дорівнюватиме 15 рокам.

Програмний код можна записати наступним чином:

 

Private Sub Command1_Click()

Dim Stat, Penciya As String, _

Vik, Stag_vusluga As Single, _

P_stag, P_stag_vik, P_stag_vusluga As Integer

Stat = Text1.Text

Vik = Val(Text2.Text)

Stag_vusluga = Val(Text3.Text)

If (Stat = ”Чоловік”) And (Vik >= 60) Or _

(Stat = ”Жінка” And Vik >= 55) Or _

(Stag_vusluga >= 25) Then

Penciya = ”Призначається”

Else

Penciya = ” Не призначається”

End If

Text4.Text = Penciya

If (Vik >= 60 And Stat = ”Чоловік”) Or _

(Stag_vusluga >= 25) Then

P_stag_vik = Vik - 60

P_stag_vusluga = Stag_vusluga - 25

End If

If (Vik >= 55 And Stat = ”Жінка”) Or _

(Stag_vusluga >= 25) Then

P_stag_vik = Vik - 55

P_stag_vusluga = Stag_vusluga - 25

End If

P_stag = P_stag_vik

If P_stag_vusluga > P_stag Then P_stag = P_stag_vusluga

Text5.Text = Str(P_stag)

End Sub

 

Результат виконання програмного коду показано на рисунку 3.1.

 

Рис. 3.1. Визначення пенсійного стажу

У мові Visual Basic є оператор вибору, який дозволяє опрацьовувати в програмі декілька умов.

Синтаксис оператора вибору:

Select Case <Вираз>

Case <ДіапазонЗначень1>

<ПослідовністьОператорів1>

[ Case <ДіапазонЗначень2>

<ПослідовністьОператорів2>

...]

[ Case Else

<ПослідовністьОператорівN>]

End Select

Працює ця конструкція так. Спочатку обчислюється значення заданого виразу, потім виконується послідовність операторів, приписаних тому оператору Case, в діапазон значень якого потрапляє значення виразу. Діапазоном значень може бути одне значення виразу, перелік значень розділених комою, діапазон значень. Якщо значення не належить жодному діапазону, то виконується послідовність операторів, записаних після слів Case Else (якщо цей елемент присутній). Після завершення виконання конструкції керування буде передане операторам, що розміщені після ключових слів End Select.

Зауважимо, що конструкція Select Case може виконати не більше ніж одну з послідовностей операторів, які містяться в ній. Після того, як одне із значень перевірки збігається із значенням виразу, буде виконано відповідну послідовність команд і оператор закінчить свою роботу. Решта умов перевірятися не буде.

Завдання для виконання лабораторної роботи № 3

 

І. Завантажити середовище візуального програмування Visual Basic.

ІІ. Розглянути зразки побудови алгоритму, форми та програмного коду (кнопка Результат) для обчислення значення функції:

Розмістити об’єкти на формі згідно зразка (рис. 3.2).

 

 

Рис. 3.2. Зразок розташування об’єктів на формі

Приклад побудови алгоритму розв’язку показано на рис. 3.3.

 

Рис. 3.3. Блок-схема алгоритму

 

Програмний код для обчислення значень функції з використанням умовного оператора може мати такий вигляд:

 

Private Sub Command1_Click()

X = Val(Text1.Text)

If X = -10 Then Y = -100 + X

If X = 10 Then Y = 100 + X

If X = 0 Then Y= Exp(X) / 2 / (X + 0.45)

Text2.Text = Str(Y)

End Sub

 

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

1.

 

 

2.

 

3.

 

4.

 

5.

 

6.

 

7.

 

8.

 

9.

 

10.

 

11.

 

12.

 

13.

 

14.

 

15.

 

ІV. Зберегти проект у папці Lab3_z1.

 

V. Продемонструвати створений проект викладачеві. Записати в зошит отримані результати.

 

VІ. Розглянути зразок форми та програмного коду (команда Результат) для визначення належності точки М(х,у) фігурі (рис. 3.4).

 

Рис. 3.4. Задана геометрична фігура

 

На рисунку 3.5 показано розташування об’єктів на формі.

 

 

Рис. 3.5. Зразок розташування об’єктів на формі

 

Програмний код для визначення належності точки геометричній фігурі можна записати так:

Private Sub Command1_Click()

Const r1 = 1

Const r2 = 2

x = Val(Text1.Text)

y = Val(Text2.Text)

If (x^2 +y^2<=r2^2) And (x^2+y^2>=r1^2) Then

Text3.Text = "т. M належить фігурі"

Else

Text3.Text = "т. M не належить фігурі"

End If

End Sub

 

VІІ. Використовуючи наведені вище зразки форми та програмного коду задачі про визначення належності точки М(x,y) фігурі Ф, виконати модифікацію форми та коду обробки події для командної кнопки відповідно до завдання свого варіанту. Координати точки М(x,y) та вид фігури Ф обрати з таблиці 3.5.

Таблиця 3.5

Координати точки М(x,y) та вид фігури Ф

№	Координати точки	Вид фігури Ф
	М
	М
	M(1.5;2.3)
	M
	M(-2.5;0.3)
	М(1.8;1.7)
	М
	М(0.8;1.4)
	М(-0.3;0.5)
	М(0.4;0.5)
	M(0.8;0.6)
	М(5.3;6.4)
	М(1.7;1.5)
	М(1.8;1.3)
	М(2;0.72)

VІІІ. Зберегти проект у папці Lab3_z2. Продемонструвати створений проект викладачеві. Записати отримані результати.

 

ІХ. Розглянути зразок форми (рис. 3.6) та програмного коду (команда Обчислити) для визначення суми виплат при заданому розмірі початкового вкладу V, заданому терміні вкладу T і річній відсотковій ставці P, що обчислюється за формулою:

,

 

 

Рис. 3.6. Зразок розташування об’єктів на формі

Програмний код для визначення суми виплат можна записати так:

 

Private Sub Command1_Click()

Dim P, T, V As Single

Dim S As Currency

V = Val(Text2.Text)

T = Val(Text3.Text)

If V >= 4000 Then Р = 13 Else Р = 12

S = V * (1 + Р / 100) ^ T

Text4.Text = Str(S)

End Sub

 

Х. Використовуючи наведені вище зразки, розробити форму із заголовком ”Обчислювальні процеси з розгалуженнями”, записати алгоритм та ввести програмний код для розв’язування наступних задач:

 

1. Обчислити вартість товару та вартість товару із врахуванням торгової надбавки, якщо задано кількість товару (шт.), торгову надбавку (%), а ціна одиниці товару (грн.) визначається наступним чином:

Кількість товару (шт.)	Ціна одиниці товару (грн.)
2000
< 2000

 

2. Обчислити залишок на банківському рахунку після проведення банківської операції, якщо відомо залишок на рахунку до операції, зняття коштів з рахунку, а надходження визначається наступним чином:

Операція	Надходження (грн.)
№1
№2

 

3. Обчислити суму оплати виконаних будівельних робіт, якщо відомо відсоток виконання запланованого обсягу робіт та вартість запланованого обсягу робіт, а штрафні санкції визначаються наступним чином:

Виконання обсягу робіт (%)	Штрафні санкції
<50	0,1% вартості запланованого обсягу
50	відсутні

 

4. Обчислити вартість товару та вартість товару із врахуванням торгової надбавки, якщо задано кількість товару (шт.), ціну одиниці товару (грн.), а торгова надбавка (%) визначається наступним чином:

Кількість товару (шт.)	Торгова надбавка (%)
5000
< 5000

 

5. Обчислити вартість товару та вартість товару із врахуванням торгової знижки, якщо задано кількість товару (шт.) та ціну одиниці товару (грн.), а торгова знижка (%) визначається наступним чином:

Кількість товару (шт.)	Торгова знижка (%)
1000
< 1000	0.5

 

6. Обчислити кількість мешканців населеного пункту на кінець року, якщо відомо кількість прибулих, вибулих, народжених, померлих та кількість мешканців на початку року, що визначається наступним чином: