x/4=1-1/3+1/5-1/7+.......1/10^-5用VB怎么写？

来源：百度知道 编辑：UC知道 时间：2024/06/18 15:17:56
用DO until loop 语句写出
最好加上注释
写错了是这样的x/4=1-1/3+1/5-1/7+.......最后一向的值小于10^-5

其实这就是求圆周率的方法，首先找出通项，第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是个表达式不能被赋值)