Второй этап. Задание значений свойствам объектов

Для объектов Command2, Command3, Command4, Command5 очистим свойство Caption . А затем для каждого  объекта формы 2 установим значения согласно таблице:

Класс объектов	Свойство	Значение  по умолчанию	Новое значение
CommandButton	Caption	Command1	Переход к следующему вопросу
OptionButton Label Frame Image	Style	0	1 - Graphical
	BackColor	Button Face	&H00C0C0FF&
	Caption	Option1	Электронные лампы
	Font	Ms Sans Serif, обычный, 8пт	10пт, обычное начертание
	BackColor	&H80000012&	&H00FFC0C0&
	Caption	Option2	Интегральные схемы
	Font	Ms Sans Serif, обычный, 8пт	10пт, обычное начертание
	BackColor	&H80000012&	&H00FFC0C0&
	Caption	Option3	Светодиоды
	Font	Ms Sans Serif, обычный, 8пт	10пт, обычное начертание
	BackColor	&H80000012&	&H00FFC0C0&
	Caption	Option4	Транзисторы
	Font	Ms Sans Serif, обычный, 8пт	10пт, обычное начертание
	BackColor	&H80000012&	&H00FFC0C0&
	Caption	Label1	Элементной базой ЭВМ третьего поколения являются:
	Font	Ms Sans Serif, обычный, 8пт	14пт, полужирное начертание
	BackStyle	1	0
	Aligment	0	2
	Caption	Label2	Выберите 1 вариант ответа.
	Font	Ms Sans Serif, обычный, 8пт	10пт, полужирное начертание
	BackStyle	1	0
	Alignment	0	2
	Caption	Frame1	Варианты ответа
	Font	Ms Sans Serif, обычный, 8пт	14пт, полужирное начертание
	BackColor	&H8000000F&	&H00FFC0C0&
	Stretch	False	True

Пользуясь таблицей, выделяем попеременно нужные объекты и в окне Свойств присваиваем перечисленным свойствам заданные в таблице новые значения.

Общий вид программного кода будет такой:

Private Sub Command1_Click()

Rem здесь идет накопление правильных ответов

If Option3 = True Then Me.Tag = 1 Else Me.Tag = 0

Rem форма 2 закрывается, форма 3 открывается.

Form2.Hide

Form3.Show

End Sub

Private Sub Option1_GotFocus()

Rem когда выделен объект Option1 то он становится следующего цвета: &HFFFF80

Option1.BackColor = &HFFFF80

End Sub

Private Sub Option1_LostFocus()

Rem когда объект Option1 не выделен, он принимает исходный цвет, заданный в таблице выше. Такая же ситуация с объектами Option2, Option3, Option4

Option1.BackColor = &H8000000F

End Sub

Private Sub Option2_GotFocus()

Option2.BackColor = &HFFFF80

End Sub

Private Sub Option2_LostFocus()

Option2.BackColor = &H8000000F

End Sub

Private Sub Option3_GotFocus()

Option3.BackColor = &HFFFF80

End Sub

Private Sub Option3_LostFocus()

Option3.BackColor = &H8000000F

End Sub

Private Sub Option4_GotFocus()

Option4.BackColor = &HFFFF80

End Sub

Private Sub Option4_LostFocus()

Option4.BackColor = &H8000000F

End Sub

Private Sub Command2_Click()

Rem при нажатии на объект Command2 форма окрашивается в желтый цвет

Form2.BackColor = &H80000009

End Sub

Private Sub Command3_Click()

Rem при нажатии на объект Command3форма окрашивается в зеленый цвет

Form2.BackColor = &HFF&

End Sub

Rem при нажатии на объект Command4 форма окрашивается в синий цвет

Private Sub Command4_Click()

Form2.BackColor = &HFF0000

End Sub

Rem при нажатии на объект Command5 форма окрашивается в зеленый цвет

Private Sub Command5_Click()

Form2.BackColor = &HC000&

End Sub

Четвертый этап – тестирование созданной формы 4:

1. Исходные данные заполнены в форму правильно.

2. Исходные данные введены не правильно.

Вывод: созданная форма 1 работает верно.

Формы 6, 8, 9,10, 11, 12, 14, 17, 19, 24, 25, 26, 27 построены по принципу формы 2.

Формы 13,16,23 построены по принципу формы 2.Но эти формы имеют дополнительно по 1-му объекту Image. Эти объекты предназначены для наглядного представления заданного вопроса.

Форма 18 построена по принципу формы 2.Но эта форма имеет 3 дополнительных объекта Image. Эти объекты предназначены для наглядного представления вариантов ответа.

Форма 3 построена по принципу формы 2.Но эта формы имеет дополнительно  1 объект Animation. Этот объект предназначен для наглядного представления заданного вопроса.

Форма 4 – третий вопрос.

Первый этап. Визуальное программирование.

В окне Конструктор форм на форму поместил управляющие элементы, которые должны обеспечить взаимодействие приложения с пользователем.

1 . Активизируем форму Form4.

2. Установим на форму последовательно 1 объект класса TextBox.

3. Установим на форму последовательно 3 объекта класса Label.

4. Установим на форму последовательно 5 объектов класса Command Button.

5. Установим на форму 1 объект класса Image.

§  Объект Label2 поясняет, как надо отвечать на поставленный вопрос.

§  Объект Label1 дает саму формулировку вопроса.

§  Объект Command1 служит для запоминания ответа и перехода к следующей форме.

§  Объекты Command2, Command3, Command4, Command5 служат для замены цвета формы соответственно на желтый, красный, синий и зеленый цвета.

§  Объект Image1 предназначен для интерфейса программы.

§  Объект TextBox предназначен для ввода ответа с клавиатуры.