Тест на языке программирования 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")
A1.Play
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
End Sub
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
End Sub
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
Больше работ по теме:
Предмет: Информационное обеспечение, программирование
Тип работы: Практическое задание
Новости образования
КОНТАКТНЫЙ EMAIL: [email protected]
Скачать реферат © 2017 | Пользовательское соглашение
ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ