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

1. Яку мовні конструкції для реалізації розгалужень має VisualBasic?

2. Які різновиди умовного оператора If має VisualBasic?

3. Який синтаксис мають оператори IfVisualBasic?

4. З якою метою у процедурі обробки події використовувалась стандартна функція Val?

5. Який синтаксис має оператор вибору SelectCase у VisualBasic?

6. Чи можна у операторі SelectCase використовувати логічні вирази? Наведіть приклади.

7. Щоозначає записCase 1 to 10 у структурі оператора SelectCase?

8. Щоозначає запис Casels>10 у структурі оператора SelectCase?

9. Щоозначає запис CaseElseу структурі оператора SelectCase?

10. Яка вбудована процедура дозволяєвиводити на друкданіу VisualBasic?

11. Які різновиди стандартних функцій має VisualBasic?

12. Що таке логічний вираз у VisualBasic?

13. Які оператори порівняння використовуються у VisualBasic?

14. Які логічні операції можна виконувати над логічними величинами і як позначаються оператори таких операцій у VisualBasic?

15. Яке ім’я і який синтаксис має команда виклику вікна повідомлення?

16. Як створити код вікна повідомлення у коді процедур у VisualBasic?

17. Яке ім’я і який синтаксис має функція виклику вікна введення даних?

18. Як створити код вікна введення даних у коді процедур у VisualBasic?

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

20. Яка властивість елементів управління Label дозволяє змінити текст на цих об’єктах у VisualBasic?

21. Яка властивість елементів управління Command дозволяє змінити текст на цих об’єктах у VisualBasic?

22. Яка властивість елементів управління Text дозволяє змінити текст на цих об’єктах у VisualBasic?

23. Як запустити проект на виконання у VisualBasic?

24. Як перетворити проект у самостійний додаток у VisualBasic?

25. Яке розширення має файл форми у VisualBasic?

26. Яке розширення має файл модуля у VisualBasic?

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

Тема:Visual Basic. Розробка додатків, що реалізують циклічний обчислювальний процес.

Мета: навчитись використовувати засоби Visual Basic для розробки додатків з циклічним обчислювальним процесом.

Завдання№1:

На робочому столі створіть папку з назвою ПР_№11. У цю папку збережіть всі створені проекти в програмі Visual Basic. Не забудьте в кінці пари перемістити дану папку на свій системний диск.

1. Активізуйте VisualBasic: Пуск−>Программы−>Visual Basic−>VisualBasic 6.0.

2. Розробимо форму з назвою Сума, в якій будуть такі об’єкти:

- 5 написів Label1 – Label5

- 3 текстових поля Text1 – Text3 для введення даних (два поля для введення значення початку і кінця відрізка a іb, одне для введення крокуh зміни аргумента

-одна командна кнопка Command1. З командною кнопкою Command1 пов’язана подія – клік на цій кнопці, який запускає на виконання процедуру обчислення суми виплат.

- Результат обчислення суми значень функції виводиться у напис з ім’ям Label5.

3. У вікні властивостей форми задайте для властивості Caption значення Сума, для властивості ForeColor виберіть зі списку вказаний на малюнку колір.

4. Для всіх написів задайте відповідне значення (властивість Caption), колір фону і вирівнювання по центру у відповідності з наведеним нижче малюнком.

5. Для текстових полів також задайте зачення„пусто” (властивість Text), вирівнювання по центру у відповідності з наведеним нижче рисунком.

6. Дотримайтесь вказаного розташування об’єктів і усвідомте логічний зв’язок між об’єктами:

Label1 −> Text1

Label2 −> Text2

Label3 −> Text3

7. Для командної кнопки Command1 встановіть значення Обчислити (властивість Caption), вирівнювання по центру у відповідності з рисунком.

8. Двічі клацніть на командній кнопці і у вікні редактору коду введіть код процедури як у наведеному нижче вікні, після чого закрийте вікно коду.

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a‘ початкове значення змінної циклу

Sum = 0 ‘очищення змінної

Do While Arg<= b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

Тут використано оператор циклу DoWhile ...Loop.

!!!!Зверніть увагу на перенесення продовження виразу у наступний рядок (пропуск і символ підкреслення).

9. Збережіть створений проект на робочому столі у папці ПР_№11. Не забудьте перемістити дану папку на свій системний диск.

Збереження проекту в Visual Basic обов’язково проходить в два етапи:

1-й етап - збереження форми: меню File −>Save Form As −> у діалоговому вікні вкажіть місце збереження: Робочий стіл – Папка ПР_№11 і ім’я форми Практична_робота_№11_Прізвище, після чого натисніть кнопку Сохранить.

2-й етап збереження проекту: меню File −>Save Project As −> у діалоговому вікні вкажіть місце збереження Робочий стіл – Папка ПР_№10 і ім’я форми Практична_робота_№11_Прізвище, після чого натисніть кнопку Сохранить.

10.Запустіть розроблений проект на виконання, скориставшись відповідним меню або кнопкою старт панелі інструментів. При цьому на екрані з’явиться вікно форми Сума, в якому в текстових полях потрібно задати значення відповідних величин і натиснути кнопку Обчислити. Після виконання обчислень у формі у написі Label5 буде виведено результат обчислення суми значень функції. Перевірте відповідність отриманого результату наведеному нижче:

11.Виконайте модифікацію коду процедури обробки події для командної кнопки у відповідності з наведеним нижче текстом:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a‘ початкове значення змінної циклу

Sum = 0‘очищення змінної

Do While Arg<= b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Print Y

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

Команда PrintY буде друкувати на формі значення Y.

Запустіть проект на виконання і переконайтесь у цьому. Збережіть проект даної модифікації у папці ПР_№11 з назвою Практична_робота_№11_1_Прізвище.

12. Виконайте модифікацію коду процедури обробки події для командної кнопки у відповідності з наведеним нижче текстом:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a‘ початкове значення змінної циклу

Sum = 0‘очищення змінної

Do While Arg<= b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

Команди Form1.ForeColor = vbRed і Form1.Font.Italic = True змінюють властивості форми (кольору шрифту і шрифт, яким будуть надруковані дані). Запустіть проект на виконання і переконайтесь у цьому.

Збережіть проект даної модифікації у папці ПР_№11 з назвою Практична_робота_№11_2_Прізвище.

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

Do ... Loop While:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a‘ початкове значення змінної циклу

Sum = 0‘очищення змінної

Do

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop While Arg<= b

Label5.Caption = Sum

EndSub

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

Збережіть проект даної модифікації у папці ПР_№11 з назвою Практична_робота_№11_3_Прізвище.

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

DoUntil... Loop:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a‘ початкове значення змінної циклу

Sum = 0 ‘очищення змінної

DoUntil Arg> b

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop

Label5.Caption = Sum

EndSub

Запустіть проект на виконання і переконайтесь у його успішній роботі.

Збережіть проект даної модифікації у папці ПР_№11 з назвою Практична_робота_№11_4_Прізвище.

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

Do... Loop Until:

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a‘ початкове значення змінної циклу

Sum = 0 ‘очищення змінної

Do

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintY

Sum = Sum + Y

Arg = Arg + Krok

Loop Until Arg> b

Label5.Caption = Sum

EndSub

Запустіть проект на виконання і переконайтесь у його успішній роботі. Чим відрізняється остання процедура від попередньої?

Збережіть проект даної модифікації у папці ПР_№11 з назвою Практична_робота_№11_5_Прізвище.

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

Private Sub Command1_Click()

Dim a, b, Arg, Y, Krok, Sum As Double

a = Val(Text1.Text)

b = Val(Text2.Text)

Krok = Val(Text3.Text)

Arg = a‘ початкове значення змінної циклу

Sum = 0 ‘очищення змінної

Print "x", "Y"

Do

Y = 7 * Arg + Abs(5 * Arg ^ 3 - 7 * Arg + 4) + _

(2 * Arg ^ 2 + 1) / (3 * Abs(Arg) + 5)

Form1.ForeColor = vbRed

Form1.Font.Italic = True

PrintArg, Y

Sum = Sum + Y

Arg = Arg + Krok

Loop Until Arg> b

Label5.Caption = Sum

EndSub

Запустіть проект на виконання і переконайтесь у його успішній роботі. Чим відрізняється остання процедура від попередньої?

Збережіть проект даної модифікації у папці ПР_№11 з назвою Практична_робота_№11_6_Прізвище.

Завдання №2:Розробіть додаток для обчислення добутку усіх непарних чисел з відрізка [1;20].

Математична модель додатку.

Перше непарне число на цьому відрізку – 1, наступне утворюється додаванням до попереднього числа 2. Щоб отримати добуток, потрібно виконати множення всіх непарних чисел з заданого відрізка. Обчислювальний процес можна розглядати як циклічний.

1. Активізуйте новий проект. Розробіть форму з 3 написами і однією командною кнопкою у відповідності з наведеним нижче малюнком.

2. Введіть код процедури обробки події – клацання на командній кнопці Обчислити. Для реалізації циклічного обчислювального процессу можна застосувати оператори Do... Loop. Змінна Arg зберігає поточне значення непарного числа, вона є змінною циклу. Змінна Dob зберігає поточне і кінцеве значення добутку непарних чисел. Використаємо явне оголошення змінних з застосуванням суфіксів. У вікні редактора коду введіть програмний код:

PrivateSubCommand1_Click()

DimArg!, Dob#

Arg! = 1

Dob# = 1 ’присвоєння значення 1 змінній Dob, в якій буде накоплюватись’добуток, перед початком циклу є обов’язковим!

DoUntilArg! > 20

Dob# = Dob# * Arg!

Arg! = Arg! + 2

Loop

Label3.Caption = Dob#

EndSub

3. Збережіть проект у папці ПР_№11 з назвою Практична_робота_№11_7_Прізвище.

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