一个字急！！

分析:分子为a,分母为b.
则每一项为a/b.代码为:
a=1
b=1
s=0
for i=1 to 20
s=s+a/b
t=a
a=b
b=t+a
next i
print s
如果是要计前N项和的话就是这样.

a=1
b=1
s=0
N=text1.text
for i=1 to N
s=s+a/b
t=a
a=b
b=t+a
next i
print s

Dim i As Integer
Dim j As Integer
Dim s As Double
Dim count As Integer
Dim temp As Integer
i = 1#
j = 2#
s = 0#
count =20
While count > 0
s = s + (CDbl(j) + 0#) / (CDbl(i) + 0#)
temp = j
j = i + j
i = temp
count = count - 1
Wend

又是个问作业的