Dim popytka11 Dim popytka12 Dim popytka13 popytka11 = Cbyte(1) popytka12 = Cbyte(1) popytka13 = Cbyte(1) Sub znaok11_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(-0.66) 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 <= 2)) or ((Abs(otwet - potwet) > tochn) and ( (popytka11<=2) and (popytka11>=1) ) )) Then Top.Main.Podskazka.Document.Open Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" End If If (Abs(otwet - potwet) <= tochn) AND (popytka11 <= 2) Then Top.Main.Podskazka.Document.Write "Задача 1 : Подзадача 1 : Ответ верный !
" Top.Main.Podskazka.Document.Write "Отвечайте на следующий вопрос." popytka11 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka11=1) Then Top.Main.Podskazka.Document.Write "Задача 1 : Подзадача 1 : Ответ не верный !
" Top.Main.Podskazka.Document.Write "Вторая попытка (см подсказку)" popytka11 = popytka11 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka11=2) Then Top.Main.Podskazka.Document.Write "Задача 1 : Подзадача 1 не решена ! (см подсказку)
" Top.Main.Podskazka.Document.Write "Выход в меню занятия" popytka11 = popytka11 + 1 End If If (((Abs(otwet - potwet) <= tochn) AND (popytka11 <= 2)) or ((Abs(otwet - potwet) > tochn) and ( (popytka11<=2) and (popytka11>=1) ) )) Then Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Close End If End Sub Sub znaok12_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.22) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) 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 <= 1)) or ((Abs(otwet - potwet) > tochn) and ( (popytka12<=1) and (popytka12>=1) ) )) Then Top.Main.Podskazka.Document.Open Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" End If If (Abs(otwet - potwet) <= tochn) AND (popytka12 <= 1) Then Top.Main.Podskazka.Document.Write "Задача 1 : Подзадача 2 : Ответ верный !
" Top.Main.Podskazka.Document.Write "Отвечайте на следующий вопрос." popytka12 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka12=1) Then Top.Main.Podskazka.Document.Write "Задача 1 : Подзадача 2 не решена ! (см подсказку)
" Top.Main.Podskazka.Document.Write "Выход в меню занятия" popytka12 = popytka12 + 1 End If If (((Abs(otwet - potwet) <= tochn) AND (popytka12 <= 1)) or ((Abs(otwet - potwet) > tochn) and ( (popytka12<=1) and (popytka12>=1) ) )) Then Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Close End If End Sub Sub znaok13_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.22) tochn=CDbl(0.01) ' Проверка вводимого числа (Текст или не текст) If (Document.ans1.zna13.value="") OR (Not IsNumeric(Document.ans1.zna13.value)) Then Alert "Необходимо ввести число" ans1.zna13.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans1.zna13.value) If (((Abs(otwet - potwet) <= tochn) AND (popytka13 <= 1)) or ((Abs(otwet - potwet) > tochn) and ( (popytka13<=1) and (popytka13>=1) ) )) Then Top.Main.Podskazka.Document.Open Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" End If If (Abs(otwet - potwet) <= tochn) AND (popytka13 <= 1) Then Top.Main.Podskazka.Document.Write "Задача 1 : Подзадача 3 : Ответ верный !
" Top.Main.Podskazka.Document.Write "Выход в меню занятия" popytka13 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka13=1) Then Top.Main.Podskazka.Document.Write "Задача 1 : Подзадача 3 не решена ! (см подсказку)
" Top.Main.Podskazka.Document.Write "Выход в меню занятия" popytka13 = popytka13 + 1 End If If (((Abs(otwet - potwet) <= tochn) AND (popytka13 <= 1)) or ((Abs(otwet - potwet) > tochn) and ( (popytka13<=1) and (popytka13>=1) ) )) Then Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Write "" Top.Main.Podskazka.Document.Close End If End Sub