VB编程 一个数列的前三项是0，1，1，以后的每一项都是前三项的和。。。

来源：百度知道 编辑：UC知道 时间：2024/05/26 07:36:17
一个数列的前三项是0，1，1，以后的每一项都是前三项的和，编程输出这个数列，直到最后一项大于1010为止。输出时，要求每行输出5项。

一个timer控件，Interval=200 text控件的Multiline=true

Dim s As Integer
Dim l As Integer
Dim g As Integer

Private Sub Form_Load()

s = 0
l = 1
Text1.Text = s & "," & l & ","
End Sub

Private Sub Timer1_Timer()
g = s + l
Text1.Text = Text1 & g & ","
If g > 1010 Then
Timer1.Enabled = False
Else
s = l
l = g
End If
End Sub

代码如下

Private Sub Form_Click()
Dim i As Integer
i = 1
Do
a = xxx(i)
Print a;
If i Mod 5 = 0 Then Print
i = i + 1
Loop Until a > 1010
End Sub

Function xxx(n As Integer) As Long
Select Case n
Case 1
xxx = 0
Case 2
xxx = 1
Case 3
xxx = 1
Case Else
xxx = xxx(n - 1) + xxx(n - 2) + xxx(n - 3)
End Select
End Function

结果如下
0 1 1 2 4
7 13