Dim popytka1 Dim popytka21 Dim popytka22 Dim popytka23 Dim popytka31 Dim popytka32 Dim popytka33 Dim popytka4 Dim popytka5 Dim popytka6 popytka1 = Cbyte(1) popytka21 = Cbyte(1) popytka22 = Cbyte(1) popytka23 = Cbyte(1) popytka31 = Cbyte(1) popytka32 = Cbyte(1) popytka33 = Cbyte(1) popytka4 = Cbyte(1) popytka5 = Cbyte(1) popytka6 = Cbyte(1) Sub znaok1_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.32) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) If (Document.ans1.zna1.value="") OR (Not IsNumeric(Document.ans1.zna1.value)) Then Alert "Необходимо ввести число" ans1.zna1.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans1.zna1.value) If ((Abs(otwet - potwet) <= tochn) AND (popytka1 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka1 >= 1)and(popytka1 <= 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 (popytka1 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 1: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka1 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka1 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka1 = popytka1 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka1 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka1 = popytka1 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka1 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 1 не решена !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka1 = popytka1 + 1 End If If ((Abs(otwet - potwet) <= tochn) AND (popytka1 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka1 >= 1)and(popytka1 <= 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.0) tochn=CDbl(0.1) ' Проверка вводимого числа (Текст или не текст) 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.01981) tochn=CDbl(0.00001) ' Проверка вводимого числа (Текст или не текст) 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 Sub znaok23_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.00019) tochn=CDbl(0.00001) ' Проверка вводимого числа (Текст или не текст) If (Document.ans2.zna23.value="") OR (Not IsNumeric(Document.ans2.zna23.value)) Then Alert "Необходимо ввести число" ans2.zna23.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans2.zna23.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka23 <= 3)) or ( (Abs(otwet - potwet)) > tochn AND ((popytka23 >= 1)and(popytka23 <= 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 (popytka23 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 3: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka23 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka23 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 3: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka23 = popytka23 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka23 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 3: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka23 = popytka23 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka23 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2, вопрос 3: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka23 = popytka23 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka23 <= 3)) or ( (Abs(otwet - potwet)) >tochn AND ((popytka23 >= 1)and(popytka23 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok31_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.59) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) If (Document.ans3.zna31.value="") OR (Not IsNumeric(Document.ans3.zna31.value)) Then Alert "Необходимо ввести число" ans3.zna31.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans3.zna31.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka31 <= 3)) or ( (Abs(otwet - potwet)) > tochn AND ((popytka31 >= 1)and(popytka31 <= 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 (popytka31 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 1: Ответ верный !
" Top.Hlp.Help.Document.Write "Отвечайте на второй вопрос." popytka31 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka31 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka31 = popytka31 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka31 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka31 = popytka31 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka31 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 1: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka31 = popytka31 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka31 <= 3)) or ( (Abs(otwet - potwet)) >tochn AND ((popytka31 >= 1)and(popytka31 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok32_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.08) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) If (Document.ans3.zna32.value="") OR (Not IsNumeric(Document.ans3.zna32.value)) Then Alert "Необходимо ввести число" ans3.zna32.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans3.zna32.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka32 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka32 >= 1)and(popytka32 <= 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 (popytka32 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 2: Ответ верный !
" Top.Hlp.Help.Document.Write "Отвечайте на третий вопрос." popytka32 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka32 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka32 = popytka32 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka32 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka32 = popytka32 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka32 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka32 = popytka32 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka32 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka32 >= 1)and(popytka32 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok33_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.008) tochn=CDbl(0.001) ' Проверка вводимого числа (Текст или не текст) If (Document.ans3.zna33.value="") OR (Not IsNumeric(Document.ans3.zna33.value)) Then Alert "Необходимо ввести число" ans3.zna33.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans3.zna33.value) If ((Abs(otwet - potwet)) <= tochn AND (popytka33 <= 3)) or ( (Abs(otwet - potwet)) > tochn AND ((popytka33 >= 1)and(popytka33 <= 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 (popytka33 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 3: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka33 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka33 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 3: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka33 = popytka33 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka33 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 3: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka33 = popytka33 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka33 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 3, вопрос 3: Ответ не верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka33 = popytka33 + 1 End If If ((Abs(otwet - potwet)) <= tochn AND (popytka33 <= 3)) or ( (Abs(otwet - potwet)) >tochn AND ((popytka33 >= 1)and(popytka33 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok4_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.90) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) If (Document.ans4.zna4.value="") OR (Not IsNumeric(Document.ans4.zna4.value)) Then Alert "Необходимо ввести число" ans4.zna4.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans4.zna4.value) If ((Abs(otwet - potwet) <= tochn) AND (popytka4 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka4 >= 1)and(popytka4 <= 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 (popytka4 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 4: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka4 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka4 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 4: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka4 = popytka4 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka4 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 4: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka4 = popytka4 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka4 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 4 не решена !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka4 = popytka4 + 1 End If If ((Abs(otwet - potwet) <= tochn) AND (popytka4 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka4 >= 1)and(popytka4 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok5_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.995) tochn=CDbl(0.001) ' Проверка вводимого числа (Текст или не текст) If (Document.ans5.zna5.value="") OR (Not IsNumeric(Document.ans5.zna5.value)) Then Alert "Необходимо ввести число" ans5.zna5.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans5.zna5.value) If ((Abs(otwet - potwet) <= tochn) AND (popytka5 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka5 >= 1)and(popytka5 <= 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 (popytka5 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 5: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka5 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka5 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 5: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka5 = popytka5 + 1 ElseIf (Abs(otwet - potwet) >tochn) AND (popytka5 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 5: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka5 = popytka5 + 1 ElseIf (Abs(otwet - potwet) >tochn) AND (popytka5 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 5 не решена !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka5 = popytka5 + 1 End If If ((Abs(otwet - potwet) <= tochn) AND (popytka5 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka5 >= 1)and(popytka5 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub Sub znaok6_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.993) tochn=CDbl(0.001) ' Проверка вводимого числа (Текст или не текст) If (Document.ans6.zna6.value="") OR (Not IsNumeric(Document.ans6.zna6.value)) Then Alert "Необходимо ввести число" ans6.zna6.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans6.zna6.value) If ((Abs(otwet - potwet) <= tochn) AND (popytka6 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka6 >= 1)and(popytka6 <= 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 (popytka6 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 6: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka6 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka6 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 6: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka6 = popytka6 + 1 ElseIf (Abs(otwet - potwet) >tochn) AND (popytka6 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 6: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka6 = popytka6 + 1 ElseIf (Abs(otwet - potwet) >tochn) AND (popytka6 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 6 не решена !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka6 = popytka6 + 1 End If If ((Abs(otwet - potwet) <= tochn) AND (popytka6 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka6 >= 1)and(popytka6 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub