孙 老师，你好，这个问题我已经解决了，现在把 方法发给你
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
您的学生 顾^_^
