Введите числа в окна
Коды программ с передачей параметра
<HTML> <HEAD> <TITLE>Передача параметров</TITLE> <SCRIPT Language="VBSCript"> Sub summa(a) t1=CDbl(document.f1.chislo1.value) t2=CDbl(document.f1.chislo2.value) a=t1+t2 End sub Sub kn_OnClick Call summa(a) ' Обращение к другой процедуре b=a*a Alert ("Сумма= " & a & " В квадрате= " & b) End Sub </SCRIPT> </HEAD> <FORM Name="f1"> Введите числа в окна<BR> <INPUT TYPE="text" NAME="chislo1"><BR> <INPUT TYPE="text" NAME="chislo2"><BR> <INPUT TYPE="button" NAME="kn" VALUE="Посмотреть"><BR> </FORM> </html>