Завдання №2:

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

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

3. Двічі клацнувши на кнопці введіть код процедури:

Private Sub Command1_Click()

Dim a, b, c, D, x1, x2 As Double

a = Val(InputBox("Введіть значення а", "Задання коефіцієнтів квадратного рівняння", a))

b = Val(InputBox("Введіть значення b", "Задання коефіцієнтів квадратного рівняння", b))

c = Val(InputBox("Введіть значення c", "Задання коефіцієнтів квадратного рівняння", c))

D = b * b - 4 * a * c

If (a = 0) And (b <> 0) Then

x1 = -c / b

MsgBox x1, , "x1"

End If

If (a = 0) And (b = 0) And (c = 0) Then MsgBox "Розв.безліч", , "x1"

If (a = 0) And (b = 0) And (c <> 0) Then MsgBox "Розв'язків не існує", , "x1"

If (a <> 0) And (D < 0) Then MsgBox ("Розв'язків не існує")

If (a <> 0) And (D >= 0) Then

x1 = (-b - Sqr(D)) / (2 * a)

MsgBox "Існує два розв."

MsgBox x1, , "x1"

x2 = (-b + Sqr(D)) / (2 * a)

MsgBox x2, , "x2"

End If

End Sub

4.Збережіть форму і проект на своєму системному диску у папці ПР_Програмування_Прізвище з назвою Практична_робота_№9_2_Прізвище:

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

Завдання №3:

1.Розробіть додаток для обчислення значень економічного показника Y в залежності від значень економічного показника X, якщо залежність задана формулою:

2. Для реалізаціїх розгалужень обчислювального процессу застосуйте конструкцію Select Case.

3.Відкрийте новий проект Visual Basic.

4.Розробіть форму за наведеним нижче на рисунку зразком: один напис, одне текстове поле для введення значення Х і одна командна кнопка.

5.Для обробки події клацання на командній кнопці введіть код процедури:

Private Sub Command1_Click()

Dim Y As Variant, X As Double

X = Val(Text1.Text)

Select Case X

Case 0 To 1

Y = 5 * X * (X + 10)

Case 1 To 10

Y = 55 + Sin(3 * X)

Case Is > 10

Y = 55 + Sin(3 * X) + (X - 10) / (X + 1)

Case Else

Y = "Не визначена"

End Select

Print "X="; X; " Y="; Y

End Sub

6. Збережіть форму і проект на своєму системному диску у папці ПР_Програмування_Прізвище з назвою Практична_робота_№9­_3_Прізвище:

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

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

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

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

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

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

5. Який синтаксис має оператор вибору Select Case у Visual Basic?

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

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

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

9. Що означає запис Case Else у структурі оператора Select Case?

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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