10. Доповніть додаток програмним кодом для кнопки CommandButton3 (Обчислити) та для чотирьох перемикачів OptionButton:

• Двічі клацніть мишкою командну кнопку Обчислити.

• Введіть код обробки події активізації Командної кнопки «Обчислити»

Private Sub CommandButton3_Click()

' Оголошення змінних, що беруть участь в обчисленнях

Dim числоА As Single, числоВ As Single, результат As Single

' Перевірка: чи вводиться числове значення в поле TextBox1?

If IsNumeric(TextBox1.Text) = False Then

MsgBox "Помилка при введені Першого числа", _

vbInformation, "ВХІДНІ ДАНІ"

TextBox1.SetFocus ‘ помістити текстовий курсор в елемент TextBox1

Exit Sub

End If

' Перевірка: чи введено в поле TextBox2 число?

If IsNumeric(TextBox2.Text) = False Then

MsgBox "Помилка при введені Другого числа", _

vbInformation, "ВХІДНІ ДАНІ"

TextBox2.SetFocus

Exit Sub

End If

' Змінним присвоюються значення що уведені в текстові поля

числоА = TextBox1.Text

числоВ = TextBox2.Text

‘ Користувач не може вносити зміни в зміст поля РЕЗУЛЬТАТ

TextBox3.Enabled = False

' Перевірка: чи обрано який-небудь із перемикачів?

If OptionButton1.Value = True Then

If числоВ = 0 Then

MsgBox "ЗНАМЕННИК НЕ МОЖЕ ДОРІВНЮВАТИ НУЛЮ", _

vbInformation, "ВХІДНІ ДАНІ"

TextBox2.SetFocus

Exit Sub

End If

' обчислення _____________ (допишіть самостійно)

результат = числоА / числоВ

TextBox3.Text = результат

Exit Sub

End If

' обчислення _____________ (допишіть самостійно)

If OptionButton2.Value = True Then

результат = числоА * числоВ

TextBox3.Text = результат

Exit Sub

End If

' обчислення _____________ (допишіть самостійно)

If OptionButton3.Value = True Then

результат = числоА + числоВ

TextBox3.Text = результат

Exit Sub

End If

' обчислення _____________ (допишіть самостійно)

If OptionButton4.Value = True Then

результат = числоА- числоВ

TextBox3.Text = результат

Exit Sub

Else

MsgBox "Не вибрано перемикач операції ", _

vbInformation, “ЗАСТЕРЕЖЕННЯ”

Exit Sub

End If

End Sub

11.Перевірте роботу введеного коду для 6-7 пар дійсних чисел. Результати обчислень занесіть до таблиці й додайте до протоколу.

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

Name (ім'я)	Властивість використовується для звернення до об'єкту в додатку
Caption (напис)	Властивість визначає текст напису на об'єкті
Left, Top, Height та Width (позиція)	Чотири властивості, що визначають позицію елемента управління. Ці значення за замовчуванням використовують як одиницю вимірювання твіп (twip). Твіп — це екранно-залежна одиниця вимірювання, рівна 1/20 точки принтера і гарантуюча незалежність відображення елементів додатку від дозволу дисплея. Відлік в системі координат ведеться зверху вниз (Y) і зліва направо (X).
BackColor (колір фону), ForeColor (колір шрифту)	Управління колірним оформленням елементів здійснюється за допомогою властивостей, яким за замовчуванням призначаються стандартні кольори Windows.
Font (параметри шрифту)	Вид шрифту в елементах управління вибирається шляхом установки значень цієї властивості.
Enabled і Visible (доступність і видимість елемента управління)	Властивість Enabled дозволяє робити об'єкти доступними (True) або недоступними (False)на етапі виконання. Властивість Visible дозволяє робити об'єкти видимими(True) або невидимими (False) на етапі виконання.

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

1. Як додати форму в проект?

2. Як змінити розміри форми?

3. Як розмістити на формі Командну кнопку?

4. Як перевірити роботу додатка?

5. Як доповнити програмний код?

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

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

8. Яке призначення ключового слова Static?

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

10. Як запустити додаток для виконання?

11. Як вказати місце розташування форми на екрані?

12. Яке призначення функції Rnd()?

13. Що розміщено на панелі Toolbox?

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

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

16. Яке призначення функції IsNumeric()?

17. Яке призначення елемента управління OptionButton?

18. Яке призначення елемента управління Напис?

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

20. Яке призначення методу SetFocus?