vb计算π的近似值,π=2*（2^2/1*3）×（4^2/3*5）×（6^2/5*7）.×（（2n)^2/(2n-1)(2n+1)),精精度为0.000001.输出n的大小

Question

vb计算π 的近似值,π =2*（2^2/1*3） ×（4^2/3*5） ×（6^2/5*7）.×（（2n)^2/(2n-1)(2n+1)),精
精度为0.000001.输出n的大小

Answer 1

Sub cc()
p = 0.000001
n = 1
pp = 2
Do While (pp * 10 ^ 6 - Int(pp * 10 ^ 6) > p Or n = 1)
pp = pp * ((2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1)))
n = n + 1
Loop
MsgBox n
End Sub