Ako vytvoriť skúšobný test
Ukážka
1. Aký príkaz v tagu <TABLE> určuje hrúbku okraja tabuľky?
border=
bordel=
size=
2.Čo je to CD-ROM ?
Optická pamäť.
Diplomat cigánskeho pôvodu.
Optický nosič dát.
3.Koľko funkčných kláves je na štandartnej klávesnici ?
Kedy ako.
Dvanásť
101
Script <SCRIPT LANGUAGE=vbscript><!--
Dim s
s=0
Dim SpravnaOdpoved
const PocetOtazok=3
SpravnaOdpoved= Array(0,2,1)
Sub Tl_onclick
for i=0 to PocetOtazok-1
P=SpravnaOdpoved(i)
if test(i).ot(P).checked=true then
s=s+1
else
test(i).style.background="red"
test(i).ot(P).style.background="blue"
end if
next
msgbox "Počet správnych odpovedí - " &s
s=0
End Sub
--></SCRIPT>
Objekty <form name="test">
1. Aký príkaz v tagu &lt;TABLE&gt; určuje hrúbku okraja tabuľky?<BR>
<INPUT type="radio" name="ot" >border=<BR>
<INPUT type="radio" name="ot" >bordel=<BR>
<INPUT type="radio" name="ot" >size=<BR>
<HR>
</form>
<form name="test">
2.Čo je to CD-ROM ?<BR>
<INPUT type="radio" name="ot" >Optická pamäť.<BR>
<INPUT type="radio" name="ot" >Diplomat cigánskeho pôvodu.<BR>
<INPUT type="radio" name="ot" >Optický nosič dát.<BR>
<HR>
</form>
<form name="test">
3.Koľko funkčných kláves je na štandartnej klávesnici ?<BR>
<INPUT type="radio" name="ot" >Kedy ako.<BR>
<INPUT type="radio" name="ot" >Dvanásť<BR>
<INPUT type="radio" name="ot" >101<BR>
<HR>
</form>
<INPUT type="button" id=Tl value="Vyhodnotiť test"></TD>