VB 圆周率 DO LOOP

来源：百度知道 编辑：UC知道 时间：2024/06/28 17:00:24
请问各位高手
VB 圆周率 DO LOOP 怎么做啊 我只会FOR 循环
问题：公式 π=2*（2*i)^2/(2*n-1)*(2*n+1)
当n=100000时 结果如何？？
请大家帮帮我
对不起 各位 I 是我的笔误 应该是N 是公式里的N 跟后面的N是一样的

Dim I As Long
Dim Pi As Double
Pi = 2
Do
I = I + 1
Pi = Pi * 4 * I * I / (2 * I - 1) / (2 * I + 1)
Loop While I < 10000000 '数字越大越精确也越慢
MsgBox Pi
输出结果:3.14159257505098

如果那个I是FOR循环中的那个I,代码应该是:
i=0
do
i=i+1
π=2*（2*i)^2/(2*n-1)*(2*n+1)
loop until i=?(你for循环循环到几,这个就比那个大1就行)
那你那个循环变量是什么啊 N？

你能说明一下变量i是干嘛的吗