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

来源：学生作业帮助网编辑：六六作业网时间：2024/11/22 14:51:53

VB循环结构程序设计上机题用DoLoopUntil或While…Wend循环用π/4π≈1-1/3+1/5-1/7+...……（-1）VB循环结构程序设计上机题用DoLoopUntil或While…W

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-1/7+...…… （-1）

VB循环结构程序设计上机题用Do Loop Until或While …Wend循环用π/4 π≈1-1/3+1/5-1/7+...…… （-1）
'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)

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-1/7+...…… （-1）