vb编程求pai的近似值，求各位大神帮忙，希望是do loop和exit do 语句的。
答案:1 悬赏:70
解决时间 2021-01-14 03:24
- 提问者网友：萌卜娃娃
- 2021-01-13 08:00
vb编程求pai的近似值，求各位大神帮忙，希望是do loop和exit do 语句的。
最佳答案
- 二级知识专家网友：爱难随人意
- 2021-01-13 09:33
Dim PI As Double
PI = 2
Dim an As Double
Dim n As Double
n = 1
an = (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1))
Do While an > 1.0000000000001
PI = PI * an
n = CDbl(n + 1)
an = (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1))
Loop
MsgBox PI追问谢谢
PI = 2
Dim an As Double
Dim n As Double
n = 1
an = (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1))
Do While an > 1.0000000000001
PI = PI * an
n = CDbl(n + 1)
an = (2 * n) ^ 2 / ((2 * n - 1) * (2 * n + 1))
Loop
MsgBox PI追问谢谢
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息