MUK-21_-_Задача с несколькими ответами

	Главная страница		WebDesign		Гостевая книга		Форум		Огородников Е. В.		МУК 21		В избранное

Задача с несколькими ответами

Вид:

Введите определение чего-нибудь Здесь предполагается наличие текста задачи

Код:

<HTML>
<HEAD>
</HEAD>
<BODY>
<!-- Начало кода -->
<FORM name="frmtest">
<br>
<h3>Введите определение чего-нибудь</h3> <br>
<TEXTAREA NAME="RESUME" ROWS=10 COLS=40 value="" readonly>
Здесь предполагается наличие определений.
</TEXTAREA><BR><BR>
<! ++++++  >
<INPUT TYPE="text" NAME="otvet1" SIZE=25 value="ответ1"><BR>
<INPUT TYPE="text" NAME="otvet2" SIZE=25 value="ответ2"><BR>
<INPUT TYPE="text" NAME="otvet3" SIZE=25 value="ответ3"><BR>
<INPUT TYPE="text" NAME="otvet4" SIZE=25 value="ответ4"><BR>
<INPUT TYPE="text" NAME="otvet5" SIZE=25 value="ответ5"><BR>
<INPUT TYPE="text" NAME="otvet6" SIZE=25 value="ответ6"><BR>
<INPUT TYPE="text" NAME="otvet7" SIZE=25 value="ответ7"><BR>
<INPUT TYPE="text" NAME="otvet8" SIZE=25 value="ответ8"><BR>
<INPUT TYPE="text" NAME="otvet9" SIZE=25 value="ответ9"><BR>
<INPUT TYPE="text" NAME="otvet10" SIZE=25 value="ответ10"><BR>
<br>
<INPUT TYPE="button" name="cmdobr" value="Оценка">
<INPUT TYPE="text" NAME="ocenka" SIZE=5><BR>
</FORM>

<!-- //Обработчик формы-->
<script language="vbscript">

sub cmdobr_OnClick

sum=0 ' число верных ответов
kv=10 ' количество вопросов
vvod=document.frmtest.RESUME.value

'== значения корней верных ответов и подсказок
'== вместо ответ1,2,3,4... вставляйте правильные ответы, а вместо подсказок - правильные подсказки или ничего
kor1="ответ1"
pod1="подсказка1"

kor2="ответ2"
pod2="подсказка2"

kor3="ответ3"
pod3="подсказка3"

kor4="ответ4"
pod4="подсказка4"

kor5="ответ5"
pod5="подсказка5"

kor6="ответ6"
pod6="подсказка6"

kor7="ответ7"
pod7="подсказка7"

kor8="ответ8"
pod8="подсказка8"

kor9="ответ9"
pod9="подсказка9"

kor10="ответ10"
pod10="подсказка10"


if instr(document.frmtest.otvet1.value,kor1)=0 then
document.frmtest.otvet1.value=kor1
else document.frmtest.otvet1.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet2.value,kor2)=0 then
document.frmtest.otvet2.value=pod2
else document.frmtest.otvet2.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet3.value,kor3)=0 then
document.frmtest.otvet3.value=pod3
else document.frmtest.otvet3.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet4.value,kor4)=0 then
document.frmtest.otvet4.value=pod4
else document.frmtest.otvet4.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet5.value,kor5)=0 then
document.frmtest.otvet5.value=pod5
else document.frmtest.otvet5.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet6.value,kor6)=0 then
document.frmtest.otvet6.value=pod6
else document.frmtest.otvet6.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet7.value,kor7)=0 then
document.frmtest.otvet7.value=pod7
else document.frmtest.otvet7.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet8.value,kor8)=0 then
document.frmtest.otvet8.value=pod8
else document.frmtest.otvet8.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet9.value,kor9)=0 then
document.frmtest.otvet9.value=pod9
else document.frmtest.otvet9.value=""
sum=sum+1
end if 

if instr(document.frmtest.otvet10.value,kor10)=0 then
document.frmtest.otvet10.value=pod10
else document.frmtest.otvet10.value=""
sum=sum+1
end if 

oc=5*sum/kv 'оценка ученика
document.frmtest.ocenka.value=oc
end sub
</script>
<!-- Конец кода -->

<!-- copyright (i4) --><div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s205.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div><!-- /copyright -->
</body>
</html>