作业帮 > 数学 > 作业

VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:数学作业 时间:2024/05/16 20:39:16
VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5-1/7+...…… (-1)
VB循环结构程序设计 上机题 用Do Loop Until或While …Wend循环 用π/4 π≈1-1/3+1/5
'a是你的精度.b是最终结果 i是循环变量
Const pi As Double = 3.14159
Private Function GetPi(ByVal a As Double)
Dim b As Double,i As Long
Do
i = i + 1
b = b + 1 / (2 * i - 1) * (-1) ^ (i + 1) '数学问题
DoEvents
Loop Until Abs(4 * b - pi)