一个求偶数的小东东，没有反应，请指点！
这是我写的一个求偶数的东东，但是提示脚本错误，请那位大虾帮忙看一下，谢谢！
<body>
<script language=vbscript>
dim a
a=cint(\"t1.value\")
sub b()
for i=0 to a
if i/2=int(\"i/2\")
s1.value=cstr(\"i\")
next i
end if
end sub
</script><form method=\"POST\" action=\"--WEBBOT-SELF--\">
<p><input type=\"text\" name=\"T1\" size=\"20\"><input type=\"submit\" value=\"提交\" name=\"B1\" onclick=b()><input type=\"reset\" value=\"全部重写\" name=\"B2\"></p>
<p><textarea rows=\"2\" name=\"S1\" cols=\"20\"></textarea></p>
</form></body>
[此贴子已经被作者于2006-3-24 15:00:58编辑过]
