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

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 01:19:10
用公式:π/4=1-1/3+1/5-1/7~求π的值,直到最后一项小于10^-6为止.用VB中的(Do while）语句怎么做,
xR]KA+ͨd (ɃP"[.Sوv@7-ijĶHvP$_OOM:3فs99wF5x^yږgH

用公式:π/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 公式法求完整解题过程,用公式法解答,用公式要写上公式.