帮忙做下VB题计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+......等第i项的值＜10的负4次方时结束提示：找出规律，第i项的分母是前一项的分母加i开始计算。可利用For循环结构的循环控制变量获得项数

Question

帮忙做下VB题
计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+......等第i项的值＜10的负4次方时结束 提示：找出规律，第i项的分母是前一项的分母加i开始计算。可利用For循环结构的循环控制变量获得项数，当某项达到规定的精度时退出循环。

Answer 1

本题因循环次数事先不确定，使用for循环结构貌似不如使用do while循环结构，程序如下：
Private Sub Form_Click()
Dim S As Single, k As Integer, i As Integer
i = 0
S = 0
k = 1
Do While 1 / k >= 10 ^ -4
S = S + 1 / k
i = i + 1
k = k + i
Loop
Print "当计算至第" & i - 1 & "项时，S="; S; "， 第"; i; "项的值为:" & 1 / k
End Sub