请教一个vb程序设计问题

来源：百度知道 编辑：UC知道 时间：2024/05/08 08:33:10
有一个数列它的头三项为0，0，1..以后的每个数都是其前三项之和，在窗体上每行输出5个数，........输出此数列
直到最后一个数超过1010为止..........谢谢了
下面的老兄，谢谢了，你的不对哦
是前三项而不是前两项的啦....
忘记补充了....对不起了，是要最后一个数大于1010

那就这样写

只有一个窗体，程序运行时单击窗体将结果打印在窗体上：
代码如下：

Private Sub Form_Click()
Dim a, b, c, d, n As Integer
n = 2
a = 0
b = 0
c = 1
Print a; b; c;
Do While d <= 1010
d = a + b + c
a = b
b = c
c = d
Print d;
n = n + 1
If n Mod 5 = 0 Then Print
Loop

End Sub

Private Sub Command1_Click()
Dim a, b, c, d, n As Integer
n = 0
a = 0
b = 0
c = 1
Print a, b, c,
Do
n = n + 1
d = a + b + c
a = b
b = c
c = d
Print d,
If (n + 3) Mod 5 = 0 Then Print
Loop While d <= 1010
End Sub

int i,j;
int a[];
do{a[i]=a[i-3]+a[i-2]+a[i-1];}
while(a[i]<1010)
for(i=0;i<n;i++)
for(j=0;j<5;j++)
{return a[i];}