急！！！一个VB题目，各位大侠来帮忙啊。

来源：百度知道 编辑：UC知道 时间：2024/09/20 21:39:47
考试中...
裴波那系数前二项是1,1以后每一项都是前两项的和,求前30个锲数之和.
不要编程了，有最后结果就行。

2178308

你可以在记事本中输入一下内容：

m=1
n=1
s=2
for i=1 to 28 step 1
p=n
n=n+m
s=s+n
m=p
next
msgbox s

文件名改为1.vbs然后双击即可显示答案！

Private Sub Form_Load()
Dim a(30) As Double
Static n As Double
n = 0
a(1) = 1: a(2) = 1
For i = 1 To 28
a(i + 2) = a(i) + a(i + 1)
n = n + a(i + 2)
Next i
Print n + 2

End Sub

2178308