Private Sub Command1_Click()
Dim s As Double
Dim a As Long,n As Long
n = 1
a = 1
s = s + 1 / a
Do Until 1 / a < 0.00001
a = a + n
s = s + 1 / a
n = n + 1
Loop
Print "s=" & s
Print "共加了" & n & "項"
End Sub