急求π的算法，vb或者vbs

Rem 公式：用π/4=1-1/3+1/5-1/7+...,级数求π的近似值

Private Sub Form_click()
Dim s As Double, pi As Double, i As Double
s = 0
For i = 1 To 100000 '上限越大，π的精度越高
s = s + 1 / (2 * i - 1) * (-1) ^ (i + 1)
Next
pi = 4 * s
Print "π="; pi
End Sub

用for语句,[]内容可有可无、
s=1
for i = 1 to {终点}
s=s*fun(i) 'fun()对应π中的解析式
[ Doevents '这个是防卡死的，想想也知道连乘是多么的复杂……
'可以另外加的command1来中途取消，比如设置一个全局变量
'cancel为true
if cancel then
cancel=false
exit for
end if ]
next
print s

当然你要另外定义fun(),比如
function fun(a as single)
fun=i+2
end function

用的是vb

这个要用高等数学微积分啊~