Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Разработка теста на VB.docx
Скачиваний:
10
Добавлен:
05.08.2019
Размер:
125.99 Кб
Скачать

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

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

Класс объектов

Свойство

Значение по умолчанию

Новое значение

CommandButton

Label

TextBox

Image

Caption

Command1

Переход к следующему вопросу

Style

0

1 - Graphical

BackColor

Button Face

&H00C0C0FF&

Caption

Label1

Сколько бит информации содержится в слове "Компьютер?"

Font

Ms Sans Serif, обычный, 8пт

14пт, полужирное начертание

BackStyle

1

0

Alignment

0

2

Caption

Label2

Введите правильный вариант ответа с клавиатуры

Font

Ms Sans Serif, обычный, 8пт

10пт, полужирное начертание

BackStyle

1

0

Alignment

0

2

Caption

Label3

Введите свой ответ сюда

Font

Ms Sans Serif, обычный, 8пт

10пт, обычное начертание

BackStyle

1

0

Alignment

0

2

Caption

Option4

Транзисторы

Text

Text1

<пусто>

Stretch

False

True

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

Третий этап. Создание программного кода.

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

Private Sub Command1_Click()

Rem здесь идет накопление правильных ответов. Если ответ правильный, то прибавляется 1 балл к предыдущему результату, а если ответ неправильный, то результат остается прежним.

If Val(Text1.Text) = 72 Then Me.Tag = Form3.Tag + 1 Else Me.Tag = Form3.Tag

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

Form4.Hide

Form5.Show

End Sub

Private Sub Command2_Click()

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

Form4BackColor = &HFFFF&

End Sub

Private Sub Command3_Click()

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

Form4.BackColor = &HFF&

End Sub

Private Sub Command4_Click()

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

Form4.BackColor = &HFF0000

End Sub

Private Sub Command5_Click()

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

Form4.BackColor = &HC000&

End Sub

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

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

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

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

Формы 15,21,22 построены по принципу формы 4, но имеют 1 дополнительный элемент Image.

 

Форма 7 – шестой вопрос.

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

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

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

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

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

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