题目内容：

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

优质解答

'a是你的精度.b是最终结果 i是循环变量Const pi As Double = 3.14159Private Function GetPi(ByVal a As Double)Dim b As Double,i As LongDoi = i + 1b = b + 1 / (2 * i - 1) * (-1) ^ (i + 1) '数学问题DoEventsL...