计算π的近似值，π地计算公式为：
π=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=多少都是这个值
请高手指点
谢谢

首先，算法描述有问题：倒第五行是什么啊？公式里没有吧？
再有，写：For i=1 To i是什么意思？不要用这种循环比较好吧
拿这个试试：
Private Sub Command1_Click()
Dim i As Long, pi As Double
pi = 2
For i = 1 To 100000
pi = pi * ((2 * i) / (2 * i - 1)) * ((2 * i) / (2 * i + 1))
Next i
Print pi
End Sub
公式我稍动了一点，因为后面2*i的平方太大，会溢出，所以变了个形

哇！这么简单的几句话就搞定了，太强了！感谢感谢！