<html>
<head>
<title>一段VBscript小程序</title></head>
<script language="VBScript">
<!--
Sub Tijiao_onclick()
Dim x,j
x=document.form1.wenben.value
For j = 1 To x
total=total+j
Next
MsgBox " 和为 " & total &"."
End Sub
-->
</script>
<body>
<center>
1到X的和：
<form name=form1>
<input type="text",name="wenben",VALUE=4,size=3>
<p>
<input type="submit",name="Tijiao">
</form>
</body>
</html>
这段代码保存成网页,就不能计算1到X的和,也弹不出对话框,这是怎么回事呢?望高手解答.
參考答案:确认按钮的type应该是button，不然会导致页面刷新
还有这两句：
<input type="text",name="wenben",VALUE=4,size=3>
<p>
<input type="submit",name="Tijiao">
每个属性用应该空格分开，应该是这样：
<input type="text" name="wenben" VALUE=4 size=3>
<p>
<input type="button" name="Tijiao">
完整代码如下:
<html>
<head>
<title>一段VBscript小程序</title></head>
<script language="VBScript">
<!--
Sub Tijiao_onclick()
Dim x,j
x=document.form1.wenben.value
For j = 1 To x
total=total+j
Next
MsgBox " 和为 " & total &"."
End Sub
-->
</script>
<body>
<center>
1到X的和：
<form name=form1>
<input type="text" name="wenben" VALUE=4 size=3>
<p>
<input type="button" name="Tijiao">
</form>
</body>
</html>
