VB编程求和怎么编，就是S=1+1/2+1/4+1/7+1/11+……，求当第i项的值小于0.0001时结束，求S

s=0
i=0
a=1
do
a=a+i
i=i+1
b=1/a
s=s+b
loop while b>=0.0001
print s

源代码粘贴进去就可以用 只要一个command按钮就可以了
第一次b=1 c=2第二次b=2 c=4第三次b=3 c=7 以此类推
Private Sub Command1_Click()
b = 0: c = 1: s = 0: a = 0
Do While a < 0.0001
b = b + 1
c = c + b
a = 1 / c
s = s + a
Loop
Print s + 1
End Sub