Практическая работа.Класс OptionButton - работа с переключателями VBA

Практическая работа. Класс OptionButton ­ работа с переключателями VBA Цель работы: Освоить приемы использования  элемента управления  OptionButton. Краткая теория Элемент   управления OptionButton (переключатель)   позволяет   выбрать   один из нескольких   взаимоисключающих   параметров или   действий.   Переключатели   обеспечивая   возможность   выбора обычно   отображаются   группами, альтернативного варианта. Свойства элемента управления OptionButton. Value Enable d Visible Возвращает True, если переключатель выбран и False в противном случае Допустимые значения: True (пользователь может выбирать переключатель)  False (в противном случае) Допустимые значения: True (переключатель отображается во время выполнения программы)  False (в противном случае) Caption Надпись, отображаемая рядом с переключателем Создать проект под названием: Флаги стран ­ подбери пару. Задание. Ход работы Расположите   на   форме объекты   в   соответствии   с рисунком 1. Установите   значения   свойств объектов   в   соответствии   с рисунком  2. Рисунок 1 Проанализируйте, а затем наберите программный код: Рисунок 2 Private Sub CommandButton1_Click() If OptionButton1.Value And OptionButton4.Value Then TextBox1.Text = "Правильно" End If If OptionButton1.Value And OptionButton5.Value Then TextBox1.Text = " Неправильно " End If If OptionButton1.Value And OptionButton6.Value Then TextBox1.Text = "Неправильно " End If If OptionButton2.Value And OptionButton4.Value Then TextBox1.Text = "Неправильно " End If If OptionButton2.Value And OptionButton5.Value Then TextBox1.Text = "Правильно " End If If OptionButton2.Value And OptionButton6.Value Then TextBox1.Text = ""Неправильно "" End If If OptionButton3.Value And OptionButton4.Value Then TextBox1.Text = ""Неправильно "" End If If OptionButton3.Value And OptionButton4.Value Then TextBox1.Text =  "Неправильно " End If If OptionButton3.Value And OptionButton6.Value Then TextBox1.Text = " Правильно " End If End Sub Private Sub CommandButton2_Click() End End Sub