Тест на языке программирования Visual Basic
Форма 1
Служит для
регистрации тестируемого человека.
На этой форме
установлены следующие объекты:
-3 объекта типа Label (Label1, Label2, Label3)
-2 объекта типа TextBox (Text1,Text2)
-1 объект типа CommandButton (Command1)
-1 объект типа Animation (A1)
Объекты Label
выполняют роль пояснительного текста, объекты TеxtBox
предназначены для ввода информации человеком. Объект CommandButton предназначен для перехода на следующую форму, а объект Animation дополняет интерфейс формы.
Вот приблизительный
программный код этой формы:
Private Sub Command1_Click()
If Text1.Text = ""
Or Text2.Text = "" Then
k = MsgBox("Вы
забыли ввести данные", , "Предупреждение")
Else
Form1.Hide
Form2.Show
End If
End Sub
Private Sub Form_Load()
A1.Open ("D:\Silver\Информатика\Новая папка\clock.avi")
End Sub
Форма2
Представляет собой
первый вопрос теста. Предполагает ответить на поставленный вопрос путем выбора
из 4-х вариантов ответа.
На этой форме
установлены следующие объекты:
-2 объекта типа Label (Label1, Label2)
-1 объект типа Frame
(Frame1)
-5 объект типа CommandButton (Command1, Command2,
Command3, Command4, Command5)
-1 объект типа Image (Image1)
-4 объекта типа OptionButton(Option1,
Option2, Option3, Option4)
Объект Label2 поясняет,
как надо отвечать на поставленный вопрос. Объект Label1 дает саму
формулировку вопроса. Объект Command1 служит для запоминания ответа и перехода к
следующей форме. Объекты Command2, Command3, Command4, Command5 служат для замены цвета формы соответственно
на белый, красный, синий и зеленый цвета. Объект Image1 предназначен для
интерфейса программы. Объект Frame служит для размещения на ней объектов OptionButton. Объекты OptionButton являются формулировками вариантов
ответов на поставленный вопрос.
Приблизительный
программный код:
Dim rez As Integer
Private Sub Command1_Click()
If Option3 = True Then Me.Tag
= 1 Else Me.Tag = 0
Form2.Hide
Form3.Show
End Sub
Private Sub Form_Load()
rez = 0
Private Sub Option1_GotFocus()
Option1.BackColor =
&HFFFF80
End Sub
Private Sub
Option1_LostFocus()
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
Private Sub
Option4_LostFocus()
Option4.BackColor =
&H8000000F
End Sub
Private Sub Command2_Click()
Form2.BackColor =
&H80000009
End Sub
Private Sub Command3_Click()
Form2.BackColor =
&HFF&
End Sub
Private Sub Command4_Click()
Form2.BackColor =
&HFF0000
End Sub
Private Sub Command5_Click()
Form2.BackColor =
&HC000&
End Sub