有一个数列,它的前三个数是0,1,2,从第四个数起,每个数都是它前面的两个数之和,求出该数列的第1
Private Sub Form_Click()
Dim last_one As Long
Dim last_two As Long
Dim this_one As Long
Dim i As Integer
last_one = 1 '数列的第二个数
last_two = 2 '数列的第三个数
i = 4 '从数列的第四个数求起
Do
this_one = last_one + last_two
last_one = last_two
last_two = ------1-------
If i = 17 Then
Form1.Print "No:17="; this_one
End If
------2------
Loop While this_one <= 100000000#
Form1.Print "No:";------3------; "is > 1E+8"
End Sub