Тест на языке программирования Visual Basic
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
аниеBackStyle10Aligment02Caption
Label2
Выберите 1 вариант ответа.Font
Ms Sans Serif, обычный, 8пт10пт, полужирное начертаниеBackStyle10Alignment02CaptionFrame1Варианты ответаFont
Ms Sans Serif, обычный, 8пт14пт, полужирное начертаниеBackColor&H8000000F&&H00FFC0C0&StretchFalseTrueПользуясь таблицей, выделяем попеременно нужные объекты и в окне Свойств присваиваем перечисленным свойствам заданные в таблице новые значения.
Общий вид программного кода будет такой:
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 предназначен для ввода ответа с клавиатуры.
Второй этап. Задание значений свойствам объектов
Для объектов Command2, Command3, Command4, Command5 очистим свойство Caption . А затем для каждого объекта формы 2 установим значения согласно таблице:
Класс объектовСвойствоЗначение по умолчаниюНовое значениеCommandButton
Label
TextBox
ImageCaptionCommand1Переход к следующему вопросуStyle01 - GraphicalBackColorButton Face&H00C0C0FF&CaptionLabel1Сколько бит информации содержится в слове "Компьютер?"Font
Ms Sans Serif, обычный, 8пт14пт, полужирное начертаниеBackStyle10Alignment02CaptionLabel2Введите правильный вариант ответа с клавиатурыFont
Ms Sans Serif, обычный, 8пт10пт, полужирное начертаниеBackStyle10Alignment02CaptionLabel3Введите свой ответ сюдаFont
Ms Sans Serif, обычный, 8пт10пт, обычное начертаниеBackStyle10Alignment02CaptionOption4ТранзисторыTextText1StretchFalseTrueПользуясь таблицей, выделяем попеременно нужные объекты и в окне Свойств присваиваем перечисленным свойствам заданные в таблице новые значения.
Третий этап. Создание программного кода.
Общий вид программного кода будет такой:
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