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

您的学生 顾^_^