Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Изм.
Лист
№ докум.
Подпись
Дата
Лист
5
КПКО.ПОКС 4705.000
Подпись и дата
Инв. № дубл.
Взам. инв. №
Подпись и дата
Инв. № подл.
Копировал
Формат А4
Лабораторная работа №6
Тема: Создание теста
Задание: создать тест с 10-15 вопросами.
Выполнение:
Function rs(res) ' функция подсчета баллов
Select Case True
Case DA.Value
res = res + 10
Case NET.Value
res = res + 5
Case NZ.Value
res = res + 2
End Select
End Function
Public Sub CommandButton1_Click()
q = 1
questions(1) = "Относишься ты к людям, которые легко завязывают знакомства?"
questions(2) = "Можешь ли ты воздержаться от выполнения? "
questions(3) = "Достаточен ли краткий отдвх для того что бы прошло твое утомление вызванное работой"
questions(4) = " можешь ли ты работать в неблагоприятных условиях”
questions(5) = "Воздерживаешься ли ты в процессе спора от эмоциональных эмоций?"
questions(6) = "Легко ли тебе возвращаться к прежней работе?? "
questions(7) = "Забываешь ли ты о своем утомлении когда пооглащен работой? "
questions(8) = "Можешь ли ты терпеливо ожидать момента возвращения к работе? "
questions(9) = "Одинакого легко ли ты засыпаешь если ложишься спать в разное время?"
questions(10) = "Умеешь ли ты хранить секрет если тебя об этом попросят? "
otvet(1) = "Вы сангвиник!"
otvet(2) = "Вы Холерик!"
otvet(3) = "Вы меланхолик!"
sum = Int(Rnd() * ((11 - 1)) + 1) рандом первого в вопроса
vpr(1) = sum
Label1.Caption = questions(sum)
MultiPage1(1).Enabled = True
MultiPage1.Value = 1
MultiPage1(0).Enabled = False
End Sub
Private Sub CommandButton2_Click()
If q <> 11 Then рандом вопроса
MultiPage1(1).Caption = "Âîïðîñ " + CStr(q)
sum = Int(Rnd() * ((11 - 1)) + 1)
For j = 1 To q - 1
If sum = vpr(j) Then
sum = Int(Rnd() * ((11 - 1)) + 1)
j = 0
End If
Next j
vpr(q) = sum
Label1.Caption = questions(sum) 'вывод вопроса
Label11.Caption = Label11.Caption + rs(res)
End If
q = q + 1
If q = 11 Then
MultiPage1(2).Enabled = True
MultiPage1.Value = 2
MultiPage1(1).Enabled = False
Label11.Caption = Label11.Caption + CStr(res) ' вывод количества баллов
End If
End Sub
Private Sub CommandButton3_Click()
main.Hide
End Sub