Private Sub Command1_Click()
Print pi(50)
Print pi(1000)
End Sub
Function pi(n As Double) As Double
Dim s As Double
Dim i As Double
s = 2
For i = 1 To n
s = s * (2 * i) ^ 2 / ((2 * i - 1) * (2 * i + 1))
Next
pi = s
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024