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

来源：学生作业帮助网编辑：六六作业网时间：2025/01/14 01:41:46

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

用公式:π/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

常用面积公式为：1,矩形面积公式2,平行四边形面积公式3,梯形面积公式4,菱形面积公式5,梯形面积公式6,三角形面积公式 1立方加+2立方+3立方+4立方+5立方.24的立方求和公式公式公式是什么 excel多条件公式怎么做例如：A1=1,B1用公式1 A1=2,B1用公式2A1=3,B1用公式3 1-cos2x=?公式 1+2+3+4+.+(n-1)+n=?要公式数月公式公式1：S=vt公式2：v=at (a为加速度)公式3：S=(at^2)/2把公式2代入公式3得公式4：S=vt/2问：公式1与公式4明显有冲突,错在哪里了? 匀变速直线运动位移公式x=v0t+1/2at 求时间公式求初速度公式求加速度公式公式转换公式不会转换数列求通项公式-1,1,5,11,19.求通项公式? 求1,3,用公式法,急合并公式1和公式2 用英语怎么说 1+2+3=?累加公式 =R[1]C[-3] 是什么公式? VF编程 π/4=1-1/3+1/5-1/7+.公式求π 数学必修1-5公式人教版必修1物理公式所有公式求π/4的进似值用公式1-1/3+1/5-1/7+、、、（用VB编程由递推公式求通项公式~an=(a(n-1)-4)/(a(n-1)+5),a1=1,求通向公式~ x^2-x-1=0 公式法求完整解题过程,用公式法解答,用公式要写上公式.