作业帮 > 数学 > 作业

用vb求pi/4 = 1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/22 10:15:31
用vb求pi/4 = 1-1/3+1/5-1/7+...公式求pi的近似值,直到最后一项绝对值小于10-6为止
Private Sub Command1_Click()
a = 1
Do
n = n + 1
m = 2 * n - 1
s = s + a * 1 / m
a = -a
Loop Until Abs(1 / m) < 10 ^ -6
pi = 4 * s
Print "pi=" & pi
End Su