请各位高手帮忙啦.一道VB题,写出完整的程序.谢谢

如下，建个按钮控件

'计算S=1+1/2+1/4+1/7+1/11+1/16...,当第I项的值<10^-4时结束

Dim a As Double
Dim s As Double
Dim n As Integer
Private Sub Command1_Click()
s = 0
n = 1

Do
a = 1 / (n * (n - 1) / 2 + 1)
s = s + a
n = n + 1
Loop While a >= 0.0001

Print s
End Sub