高校问答在团队中的作用:VB求解2/1,3/2,5/3,8/5,13/8,21/13...求出这个数列的前20项之和
来源：百度文库 编辑：高校问答 时间：2024/05/09 05:55:43
要注意类型转换
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
Dim i, j, k, temp As Integer
Dim sum As Double
sum = 0
j = 1
k = 2
For i = 1 To 20
sum = sum + k / j
temp = k
k = j + k
j = temp
Next i