用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句怎么做,

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 14:03:19
用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句怎么做,

用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句怎么做,
用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句怎么做,

用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while)语句怎么做,
Dim pi As Double
Dim S As Double
Dim i As Double
Dim Vi As Double

i = 0
S = 0
Do While True
Vi = 1 / (2 * i + 1) '第i项的值:1,1/3,1/5,1/7.
If Vi < 0.0000001 Then Exit Do '如果最后一项小于10^-6,则退出do,结束计算,此处我设定为10 -7次方,越大结果越准确
If (i Mod 2) = 0 Then
S = S + 1 / (2 * i + 1) '偶数项加上
Else
S = S - 1 / (2 * i + 1) '奇数项减去
End If
i = i + 1
DoEvents '避免假死循环
Loop
pi = 4 * S
MsgBox pi