Dim popytka11 Dim popytka12 Dim popytka21 Dim popytka22 popytka11 = Cbyte(1) popytka12 = Cbyte(1) popytka21 = Cbyte(1) popytka22 = Cbyte(1) Sub znaok11_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.16) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) If (Document.ans1.zna11.value="") OR (Not IsNumeric(Document.ans1.zna11.value)) Then Alert "Необходимо ввести число" ans1.zna11.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans1.zna11.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka11 <= 3)) or ( (Abs(otwet - potwet)) > tochn AND ((popytka11 >= 1)and(popytka11 <= 3))) Then Top.Hlp.Help.Document.Open Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" End If If (Abs(otwet - potwet) <= tochn) AND (popytka11 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 1: Ответ верный !
" Top.Hlp.Help.Document.Write "Отвечайте на следующий вопрос." popytka11 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka11 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka11 = popytka11 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka11 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka11 = popytka11 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka11 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka11 = popytka11 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka11 <= 3)) or ( (Abs(otwet - potwet)) >tochn AND ((popytka11 >= 1)and(popytka11 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok12_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.8) tochn=CDbl(0.1) ' Проверка вводимого числа (Текст или не текст) If (Document.ans1.zna12.value="") OR (Not IsNumeric(Document.ans1.zna12.value)) Then Alert "Необходимо ввести число" ans1.zna12.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans1.zna12.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka12 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka12 >= 1)and(popytka12 <= 3))) Then Top.Hlp.Help.Document.Open Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" End If If (Abs(otwet - potwet) <= tochn) AND (popytka12 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 2: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka12 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka12 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka12 = popytka12 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka12 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka12 = popytka12 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka12 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 1, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka12 = popytka12 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka12 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka12 >= 1)and(popytka12 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok21_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(-0.16) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) If (Document.ans2.zna21.value="") OR (Not IsNumeric(Document.ans2.zna21.value)) Then Alert "Необходимо ввести число" ans2.zna21.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans2.zna21.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka21 <= 3)) or ( (Abs(otwet - potwet)) > tochn AND ((popytka21 >= 1)and(popytka21 <= 3))) Then Top.Hlp.Help.Document.Open Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" End If If (Abs(otwet - potwet) <= tochn) AND (popytka21 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 1: Ответ верный !
" Top.Hlp.Help.Document.Write "Отвечайте на следующий вопрос." popytka21 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka21 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka21 = popytka21 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka21 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka21 = popytka21 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka21 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka21 = popytka21 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka21 <= 3)) or ( (Abs(otwet - potwet)) >tochn AND ((popytka21 >= 1)and(popytka21 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok22_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.8) tochn=CDbl(0.1) ' Проверка вводимого числа (Текст или не текст) If (Document.ans2.zna22.value="") OR (Not IsNumeric(Document.ans2.zna22.value)) Then Alert "Необходимо ввести число" ans2.zna22.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans2.zna22.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka22 <= 3)) or ( (Abs(otwet - potwet)) > tochn AND ((popytka22 >= 1)and(popytka22 <= 3))) Then Top.Hlp.Help.Document.Open Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" End If If (Abs(otwet - potwet) <= tochn) AND (popytka22 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 2: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka22 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka22 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka22 = popytka22 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka22 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka22 = popytka22 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka22 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka22 = popytka22 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka22 <= 3)) or ( (Abs(otwet - potwet)) >tochn AND ((popytka22 >= 1)and(popytka22 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub