杭州交通信息网客机模型图片:帮我做下！！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 01:27:50
已知Fibonacci数列{f(n)}：1,1,2,3,5,8,……,其特点是：从第3项开始，每一项都是其前两项之和。试求f(2)+f(4)+…+f(30)。
dim a as integer
dim b as integer
dim c as integer
dim sum as integer
a=0 b=1 c=0
for i=1 to 30
a=b
b=c
c=a+b
if sum mod i=0 and i<>1 then
sum=sum+c
end if
next
print sum
呵呵 你试一下
dim a(1 to 30) as integer
a(1)=1
a(2)=2
for i=3 to 30
a(i)=a(i-1)+a(i-2)
next i
s=0
for i=1 to 30
s=s+a(i)
next i
print s
修改上面仁兄的答案：
dim a(1 to 30) as integer
a(1)=1
a(2)=1 ‘前两个都为1
for i=3 to 30
a(i)=a(i-1)+a(i-2) ’求出所有值
next i
s=0
for i=1 to 30
if i mod 2 = 0 then ‘求出所有下标为偶数的所有值的和
s=s+a(i)
end if
next i
print s
pf