[求助]编程问题
计算π的近似值，π地计算公式为：
π=2*((2^2)/(1*3))*((4^2)/(3*5))*((6^2)/(5*7))*……*((2n)^2)/((2n-1)*(2n+1))
取n=100000时的值
我编的程序是
Private Sub Command1_Click()
Dim i&, t!, pi!
i = 1
pi = 2 * 4 / 3
t = 4 / 3
For i = 1 To i
t = ((2 * i) ^ i) / ((2 * i - 1) * (2 * i + 1))
pi = 2 * (pi / (1 / t))
If i = 100000 Then Exit For
Next i
Print pi
End Sub
可是结果不是3.14而是3.555556，并且我无论使i=多少都是这个值
请高手指点
谢谢
