作业帮 > 数学 > 作业

求圆周率∏的近似值.公式为= 1-+-…+(-1)(n+1)×,直到最后一项的绝对值小于0.000001 为止

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/11 17:50:12
求圆周率∏的近似值.公式为= 1-+-…+(-1)(n+1)×,直到最后一项的绝对值小于0.000001 为止
Private Sub Form_Click()
Dim pi As Double
Dim n As Long
n = 1
Do
pi = pi + 4 * ((-1) ^ (n - 1) * (1 / (2 * n - 1)))
n = n + 1
Loop Until 1 / (2 * n - 1) < 0.000001
Print pi
End Su