VBScript - radiobutton - Помощь студентам

Heng · 28.10.2013, 16:27

Всем доброго времени суток, вопрос в том что, не могу собрать информацию с компонентов RadioButton, т.е. обратиться к кждой группе из 3 компонентов и взять Value, что исправить ?

Код:

<HTML>
    <HEAD>
    <TITLE>Задание 3</TITLE>
   
    </HEAD>
    <BODY>
    <H1><p align = "center">Проверка знаний.</p></H1>
 
    <H2><p align = "center">Теория множеств</p></H2></p>
    
    <FORM NAME="Lab7">
     <H2>
     <p >1) Какая запись соответствует Свойству пустрого множества?</p>
<input type="radio" name="R1" value="0" /> A=A<br />
<input type="radio" name="R1" value="0" /> A=A&#8745B<br />
<input type="radio" name="R1" value="6.66" /> &#8709&#8745A=&#8709<br />
     <p>2) Какая запись соответствует Свойству универсального множества?</p>
<input type="radio" name="R2" value="0" /> U+A=U<br />
<input type="radio" name="R2" value="0" /> U&A=U<br />
<input type="radio" name="R2" value="6.66" /> U&#8745A=A<br />
     <p>3) Какая запись не соответствует Закону коммутативности?</p>
<input type="radio" name="R3" value="0" /> B+A=A+B<br />
<input type="radio" name="R3" value="0" /> A-B=A+B<br />
<input type="radio" name="R3" value="6.66" />A&#8745B=B&#8745A<br />
     <p>4) Какая запись соответствует Закону ассоциативности?</p>
<input type="radio" name="R4" value="0" /> (A&#8745B)=A<br />
<input type="radio" name="R4" value="0" />(A&#8745B)=B<br />
<input type="radio" name="R4" value="6.66" />(A&#8745B)&#8745C=A&#8745(B&#8745C)<br />  
     <p>5) Какая запись соответствует Закону дистрибутивности?</p>
<input type="radio" name="R5" value="0" />(A&#8745A)&#8745C=A&#8745(B&#8745C)<br />
<input type="radio" name="R5" value="0" />(B&#8745B)&#8745C=A&#8745(B &#8745C)<br />
<input type="radio" name="R5" value="6.66" />A&#8745(B&#8746C)=A&#8745B&#8746A&#8745C<br />
     <p>6) Какая запись соответствует Закону двойного дополнения?</p>
<input type="radio" name="R6" value="0" /> U+A=U<br />
<input type="radio" name="R6" value="0" /> U&A=U<br />
<input type="radio" name="R6" value="6.66" /> &#175A&#175=A<br />
     <p>7) Какая запись соответствует Закону идемпотентности?</p>
<input type="radio" name="R7" value="0" />A&#8745B=A<br />
<input type="radio" name="R7" value="0" />A&#8745A=B<br />
<input type="radio" name="R7" value="6.66" />A&#8745A=A<br />
     <p>8) Какая запись соответствует Закону Де Моргана?</p>
<input type="radio" name="R8" value="0" />A&#8745B=A&#8746B<br />
<input type="radio" name="R8" value="0" />A&#8746B=A&#8746B<br />
<input type="radio" name="R8" value="6.66" />A&#8745B=A&#8745B<br />
     <p>9) Какая запись соответствует Закону поглощения?</p>
<input type="radio" name="R9" value="0" />A&#8745(B&#8745B)=A<br />
<input type="radio" name="R9" value="0" />A&#8745(A&#8745A)=A<br />
<input type="radio" name="R9" value="6.66" />A&#8745(A&#8746B)=A<br />
     <p>10)С помощью чего можно доказать законы алгебры множеств?</p>
<input type="radio" name="R10" value="0" />Кругов Эйлера-Венна<br />
<input type="radio" name="R10" value="0" />Кубов Эйлера-Венна<br />
<input type="radio" name="R10" value="6.66" />Пирамид Эйлера-Венна<br />
     <p>11) Какому закону соответствует запись A&#8746(B&#8745C)=(A&#8746B)&#8745(A&#8746C)?</p>
<input type="radio" name="R11" value="0" />Закон ассоциативности<br />
<input type="radio" name="R11" value="0" />Закон коммутативности<br />
<input type="radio" name="R11" value="6.66" />Закон дистрибутивности<br />
     <p>12) Какому закону соответствует запись A&#8745(A&#8746B)=A?</p>
<input type="radio" name="R12" value="0" />Закон дистрибутивности<br />
<input type="radio" name="R12" value="0" />Закон ассоциативности<br />
<input type="radio" name="R12" value="6.66" />Закон поглощения<br />
     <p>13)  Какому закону соответствует запись A&#8745A=A?</p>
<input type="radio" name="R13" value="0" />Закон дистрибутивности<br />
<input type="radio" name="R13" value="0" />Закон коммутативности<br />
<input type="radio" name="R13" value="6.66" />Закон идемпотентности<br />
     <p>14) Выберите правильный ответ. &#8709&#8746A= </p>
<input type="radio" name="R14" value="0" />A<br />
<input type="radio" name="R14" value="0" />-A<br />
<input type="radio" name="R14" value=6.66 />&#8709<br />
     <p>15) По закону коммутативности A&#8746B= </p>
<input type="radio" name="R15" value="6.66" />B&#8746A<br />
<input type="radio" name="R15" value="6.66" />B&#8746A<br />
<input type="radio" name="R15" value="6.66"  />vB&#8746A<br />
 
<input type="button" Name="B1" value="Закончить" >
     </H2>
    </FORM>
 <SCRIPT LANGUAGE="VBScript">
 
     Sub B1_OnClick() 'Задание 3''''''''''''''''''''''''''''''''''
        Dim  s,s2
        Dim i,Sum
sum = 0
     For i = 1 To 15
       if document.lab7.Controls(i).Checked then sum = sum + document.lab7.Controls(i).value 
     Next
     msgbox Sum&"%"
 
   End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
    </SCRIPT>
    </BODY>
    </HTML>

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBScript	Программистик	Помощь студентам	0	20.10.2012 20:51
VBScript	SkrudjMakdak	PHP	5	12.10.2010 23:25
VBScript в PHP	Damhurz	PHP	0	01.06.2009 02:50