用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 Temp As Double

Dim S As Double

Dim lngI As Long

Dim lngK As Long

S = 0#

lngI = 1

lngK = 0

Temp = 1#

Do While 1

lngI = lngI + lngK

Temp = 1# / lngI

lngK = 1 + lngK

If Temp < 0.0001 Then

Exit Do

Else
End If

S = S + Temp

Loop

End Sub

我不会VB啊,听说很简单但是我不会

'第一种方法
for i = 1 to 10^4
s=s+ 1/i
next

'第二种方法
do while 1/i>=10^-4
s=s+ 1/i
i=i+1
loop

'第三种方法
do
s=s+ 1/i
i=i+1
loop until 1/i<10^-4

Private Sub Form_Click()
Dim s%, sum!, i%