Qbasic问题！急求答案！

来源：百度知道 编辑：UC知道 时间：2024/05/16 14:08:38
2/1+3/2+5/3+8/5+13/8+········+n，怎么做啊？
能加上说明吗？

s=s+a(i)/a(i-1)
不行啊！

cls '清屏
input n '输入项数
dim a(n) '定义数组
a(1)=1:a(2)=2 '斐波那契数列的前两项
for i=3 to n
a(i)=a(i-1)+a(i-2)
next i
'这段循环是要求斐波那契数列的前n项
for i=2 to n
s=s+a(i)/a(i-1)
next i
'把每个加数都加上，格式为一项除以它的前一项。
print s '打印得数
end

现在 s=s+a(i)/a(i-1)也行了