VB编程计算s=1+1⼀2+1⼀4+1⼀7+1⼀11+1⼀16+1⼀22+1⼀29+...,当第i项的值＜10的－4次方时结束

Private Sub Command1_Click()
Dim s As Single
Dim i, j As Integer
s = 0
i = 1
j = 1
Do
s = s + 1 / i
i = i + j
j = j + 1
Loop Until i > 10000
Print "第" & j & " 项 结果< 10的－4次方,"
Print "此时式子的值为：" & s
Print " 第" & j & " 项的值为:" & Format(1 / i, "0.00000")
End Sub

Private Sub Command1_Click()
Dim s!, i%, j%
i = 1
Do
i = i + j
s = s + 1 / i
j = j + 1
Loop Until 1 / i < 10 ^ -4
Print s
End Sub

Private Sub Command1_Click()
Dim s as single
Dim i,j as interge
s=0
i=1
j=1
While 1/i >= 1e-4
s = s + 1 / i
i = i + j
j = j + 1
Wend
Print s
End Sub

Private Sub Command1_Click()
'10^(-4)=1/10000
For i = 1 To 9999 Step 3

a = 1 / i
Sum = Sum + a
Next i
Print Sum
End Sub