请VB编程高手帮忙编个程序啊：有一数列，它的头三项为0,0,1，以后的每个数都是其前三个数的和。编程在窗体

Question

每行输出5个数，输出此数列，直到最后一个数超过1010为止。

Answer 1

Dim A(1 To 1000) As Integer
Dim I, x As Integer
A(1) = 0
A(2) = 0
A(3) = 1

Print Tab(1); A(1);
Print Tab(8); A(2);
Print Tab(15); A(3);
x = 15
For I = 4 To 1000
x = x + 7
A(I) = A(I - 3) + A(I - 2) + A(I - 1)
If A(I) > 1010 Then Exit For
If I / 5 = Int(I / 5) Then
Print Tab(x); A(I)
x = -6
Else
Print Tab(x); A(I);
End If
Next I

Answer 2

dim a,i
dim arr
i=3
arr[0]=0
arr[1]=0
arr[2]=1
do while a<=1010
arr[i]=arr[i-1]+arr[i-2]+arr[i-3]
a=arr[i]
i=i+1
loop
for n=1 to ubound(arr)+1
if n%5=0 then 输出回车键
输出 arr[n]
next