<BODY><H3>计算圆周率π</H3><HR>
<INPUT TYPE="Button" NAME="Button1" VALUE="计算">
<SCRIPT FOR="Button1" EVENT="onClick" LANGUAGE="VBScript">
k = 1: s = 1: t = 1: m = 1
图3-12 计算圆周率
While Abs(t) > 0.0000001
k = k + 2
m = -m
t = m / k
s = s + t
Wend
MsgBox "圆周率π=" & 4 * s
</SCRIPT>
</BODY>
</HTML>
执行VBScript程序，浏览器显示如图3-12所示。
注意：程序运行时间可能很长。
只有30字节,能写什么?
