VB编程中的一道题目是1,1,2,3,5,8.....前面两项之和等于后面一项，循环30次，这道题目代码怎么写？

孙 老师，你好，这个问题我已经解决了，现在把 方法发给你
Private Sub Form_click()
Dim i As Integer, f1&, f2&, sum!
f1 = 1: f2 = 1: sum = (7)
Print f1, f2,
For i = 1 To 30
f1 = f1 + f2: f2 = (8)
sum = sum + f1 + f2
Print f1, f2,
If (9) Then Print
Next i
Print "sum="; sum
End Sub
您的学生 顾^_^