vb编程计算s的值，其中s=1+1/2+1/3+...+1/n，n为正整数，当i项（即1/i<=0.01时结束

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Dim s As Double
Do
i = i + 1
s = s + 1 / i
Loop Until 1 / i <= 0.01
Print s
End Sub