用vb计算1+1/2+1/4+1/7+1/11+……当i项值小于0.0001时结束

是总和小于0.0001,还是J项?
如果是j,那j>10000-----(1/10000=0.0001)
用 先算 j.
a=1, j=0, i=1
do while a<0.0001
i=i+1
j=j+i
a=1/j
loop
sigma=1
d=0
for i=1 to j step
d=d+i
sigma=sigma+1/(d+i)
next
试试,还没调试.不行我再看看

for i=1 to 10000
if 小于0.0001 then
s=s+……
next i

Private Sub Command1_Click()
i = 1
Do
s = s + 1 / (i + i)
i = i + 1
Loop Until 1 / i <= 0.0001
Print s + 1
End Sub

Dim i As Integer, s As Double, n As Double, t As Integer
i = 1
t = i
n = 1
Do
n = 1 / t
If n < 0.0001 Then Exit Do
s = s + n
t = t + i
i = i + 1
Loop
Print s