其实这就是求圆周率的方法,首先找出通项,第N项应该是(-1)^(N+1)*(1/(2*N-1))
Private Sub Form_Click()
dim N as single
dim X as double
'清屏
Form1.Cls
'初始值N=1 X=0
N=1
X=0
'循环直达最后一项小于10^(-5)
do until (2*N-1)>100000
'累加每一项
X=X+(-1)^(N+1)*(1/(2*N-1))*4
N=N+1
loop
'输出X的值
print X
End Sub
算出结果:3.14157265358978
与圆周率很接近了,如果将最后一项定义小些会更接近。
看不懂,通项有错吧?
1、3、5、7....然后怎么就变成10^-5了
如果是x=1-1/3+1/5-1/7+......1/100000?
n=1
x=1
do until i<10^5
x = x + ((1/i)*((-1)^n-1))
i=i+2
n=n+1
if i<10^5 then
num=x*4
end if
loop
(x/4是个表达式不能被赋值)