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

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

人气：134 ℃　时间：2020-06-14 07:35:33

解答

'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...