求圆周率∏的近似值.公式为= 1-+-…+（-1）（n+1）×,直到最后一项的绝对值小于0.000001 为止

MarilynMonroe 1年前 已收到1个回答 举报
赞

高水 幼苗

共回答了18个问题采纳率：88.9% 举报

Private Sub Form_Click()
Dim pi As Double
Dim n As Long
n = 1
Do
pi = pi + 4 * ((-1) ^ (n - 1) * (1 / (2 * n - 1)))
n = n + 1
Loop Until 1 / (2 * n - 1) < 0.000001
Print pi
End Su

1年前

5
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 7.544 s. - webmaster@yulucn.com