Dim popytka1 Dim popytka2 popytka1 = Cbyte(1) popytka2 = Cbyte(1) Sub znaok1_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.045) tochn=CDbl(0.001) ' Проверка вводимого числа (Текст или не текст) 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 znaok2_OnClick Dim otwet,potwet,tochn ' Правильный ответ potwet=CDbl(0.029) tochn=CDbl(0.001) ' Проверка вводимого числа (Текст или не текст) If (Document.ans2.zna2.value="") OR (Not IsNumeric(Document.ans2.zna2.value)) Then Alert "Необходимо ввести число" ans2.zna2.focus Exit Sub End If ' Проверка вводимого числа (на попадание в диапазон) otwet=CDbl(Document.ans2.zna2.value) If ((Abs(otwet - potwet) <= tochn) AND (popytka2 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka2 >= 1)and(popytka2 <= 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 (popytka2 <= 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2: Ответ верный !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka2 = 5 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka2 = 1) Then Top.Hlp.Help.Document.Write "Контрольная задача 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталось две попытки." popytka2 = popytka2 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka2 = 2) Then Top.Hlp.Help.Document.Write "Контрольная задача 2: Ответ не верный !
" Top.Hlp.Help.Document.Write "Осталась последняя попытка." popytka2 = popytka2 + 1 ElseIf (Abs(otwet - potwet) > tochn) AND (popytka2 = 3) Then Top.Hlp.Help.Document.Write "Контрольная задача 2 не решена !
" Top.Hlp.Help.Document.Write "Выход в меню занятия" popytka2 = popytka2 + 1 End If If ((Abs(otwet - potwet) <= tochn) AND (popytka2 <= 3)) or ( (Abs(otwet - potwet) > tochn) AND ((popytka2 >= 1)and(popytka2 <= 3))) Then Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Write "" Top.Hlp.Help.Document.Close End If End Sub