VB中圓周率格利高裏算法的程序代碼！！急！！！

'4*(1-1/3+1/5-1/7+1/9-1/13+1/15-1/17+...+1/(2n-1)-1/(2n+1))，

Dim a As Double

Dim s As Double

Dim n As Integer

a = -1

n = -1

Do

a = a + 2

n = -n

s = s + n / a

Loop Until a > 10 ^ 6

MsgBox s * 4

上一篇:投影測量的意義及各種指標的分析

下一篇:交易視圖延遲推送