Function zdypi#(n)
Dim i%, a#
zdypi = 2#
For i = 1 To n
a = 2 * i
zdypi = zdypi * a * a / (a - 1#) / (a + 1#)
Next i
End Function
Private Sub Command1_Click()
Text1 = Format(zdypi(10), "#.#####0")
Text2 = Format(zdypi(100), "#.#####0")
Text3 = Format(zdypi(1000), "#.#####0")
End Sub
x = 1
For n = 1 To 10
x = x * (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1))
Next
x = Format(x, "0.00000")
MsgBox x
n取100或1000时同上，把上面的10改成对应的数值就可以了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024