利用π/4≈1-1/3+1/5-1/7+…求π得近似值最后一项小于0.000001.我的代码是下面这样,算出来π=2.6667?
PrivateSubCommand1_Click()
DimpAsDouble,nAsLong,tAsInteger,sAsDouble
p=1:n=1:t=1
Do
n=n+1
s=1/(2*n-1)
t=-t
p=p+t*s
LoopWhiles