VB程序问题~求下面分数前20项的和`2/1,3/2,5/3,8/5,13/8,21/13........

Dim x(20) As Single
Dim s As Single
a = 1
b = 2
s = 0
For i = 1 To 20
x(i - 1) = b / a
Debug.Print "第"; i; "项:"; b; "/"; a
temp = a
a = b
b = temp + b
s = s + x(i - 1)
Next
Debug.Print "前20项和为："; s

运行结果:
第 1 项: 2 / 1
第 2 项: 3 / 2
第 3 项: 5 / 3
第 4 项: 8 / 5
第 5 项: 13 / 8
第 6 项: 21 / 13
第 7 项: 34 / 21
第 8 项: 55 / 34
第 9 项: 89 / 55
第 10 项: 144 / 89
第 11 项: 233 / 144
第 12 项: 377 / 233
第 13 项: 610 / 377
第 14 项: 987 / 610
第 15 项: 1597 / 987
第 16 项: 2584 / 1597
第 17 项: 4181 / 2584
第 18 项: 6765 / 4181
第 19 项: 10946 / 6765
第 20 项: 17711 / 10946
前20项和为： 32.66026

请把问题写明确些好吧，我愚钝没看清楚你的目的