Завдання №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"

EndIf

EndSub

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

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

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

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

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

Завдання №3:

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

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

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

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

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

PrivateSubCommand1_Click()

Dim Y AsVariant, X AsDouble

X = Val(Text1.Text)

SelectCase X

Case 0 To 1

Y = 5 * X * (X + 10)

Case 1 To 10

Y = 55 + Sin(3 * X)

CaseIs> 10

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

CaseElse

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

EndSelect

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

EndSub

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

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

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

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

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