vb 序列求和 急

Private Sub Command1_Click()
Dim li As Integer
Dim lj As Integer
Dim lTemp As Integer
Dim lSum As Double
Dim lCnt As Integer
li = 2
lj = 1
lTemp = li
For lCnt = 1 To 20
lSum = lSum + li / lj
li = li + lj
lj = lTemp
lTemp = li
Next
MsgBox lSum
End Sub

Private Sub form_load()
Dim a
Dim b
Dim c
Dim s
Dim i
a = 2
b = 1
For i = 1 To 20
s = s + a / b
c = b
b = a
a = b + c
Next

MsgBox s

End Sub

结果：32.6602.............