作业帮 > 综合 > 作业

VB~利用多项式π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/27 16:42:07
VB~利用多项式π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001
有个提示 :可以定义变量来表示各项的正负交替,如,定义变量S,用S=-S来实现正负的交替.
请用VB 编程 完整的
VB~利用多项式π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001
Private Sub Command1_Click()
'π/4≈1-1/3+1/5-1/7+… 求π得近似值 最后一项小于0.000001
Dim π,n,s,zf
n = -1
zf = -1
Do
n = n + 2
zf = -zf
s = zf / n + s
Loop Until 1 / n < 0.000001
π = 4 * s
MsgBox π
End Su