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

显示全部楼层 · 2008-6-8 15:58:59

一个数列的前三项是0，1，1，以后的每一项都是前三项的和，编程输出这个数列，直到最后一项大于1010为止。输出时，要求每行输出5项。

千问 · 2008-6-8 15:58:59

代码如下Private Sub Form_Click()Dim i As Integeri = 1Doa = xxx(i)Print a;If i Mod 5 = 0 Then Printi = i + 1Loop Until a > 1010End SubFunction xxx(n As Integer) As LongSelect Case nCase 1xxx = 0Case 2xxx = 1Case 3xxx = 1Case Elsexxx = xxx(n - 1) + xxx(n - 2) + xxx(n - 3)End SelectEnd Fu

千问 · 2008-6-8 15:58:59

一个timer控件，Interval=200 text控件的Multiline=trueDim s As IntegerDim l As IntegerDim g As IntegerPrivate Sub Form_Load()s = 0l = 1Text1.Text = s & "," & l & ","

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

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