Question

求助一个VB程序的解答.......高手帮忙

程序功能是求s=1+2+3+5+8+13+21+34+55+89+144+233+377+610+987+1597+2584+4181
+6765+10946+17711+28657+46368+75025+121393+196418+317811+514229+832040+1346269前30项的值，要求显示每项的值和所有项之和

Answer 1

Dim a(30)
Sum = 0
For i = 0 To 29
If i < 2 Then
a(i) = i + 1
Else
a(i) = a(i - 1) + a(i - 2)
End If
Print a(i)
Sum = Sum + a(i)
Next i
Print Sum

Answer 2

a=1
b=2
print a;b;
x=a+b
for i=1 to 28
c=a+b
print c;
a=b
b=c
x=x+c
next
print x

Answer 3

a=1
b=2
print a;b;
x=a+b
for i=1 to 28
c=a+b
print c;
a=b
b=c
c=x+c
next i
print x