Question

vb程序设计问题，在线急求！！！

3. 按钮"第三题"：一个有100个数组成的数列，它的头三个数为0，1，2。第四个数为前三个数之和，第五个数为第二、第三、第四三个数之和，以后每个数皆为前三个数之和，编写程序，在窗体上将这个数列按每行5个打印出来。（提示：可以利用Tab(x)函数进行输出的精确定位）
程序结构：
……'初始化前三项并输出（不换行），如:a、b、c
For i = 4 To n
d=a+b+c'找出下一项
…… '并输出d（不换行）
If i Mod 5 = 0 Then Print '每5项换行
…… '更新下一次循环的前三项
Next i
其中：每项x本身可以通过循环结构求和完成；也可以通过递推式完成：x=x+a*10^(i-1)

Answer 1

Dim a, b, c, n As Long
a = 0: b = 1: c = 2
Print a ; b ; c
n = 100
For i = 4 To n
d = a + b + c '找出下一项
Print d; '并输出d（不换行）
If i Mod 5 = 0 Then Print '每5项换行
a = b: b = c: c = d '更新下一次循环的前三项
Next i

追问

成品要这样m(_ _)m

追答

Dim a, b, c, n As Long
a = 0: b = 1: c = 2

Print a; Tab(25); b, Tab(50); c; Tab(75);
n = 100
For i = 4 To n
d = a + b + c '找出下一项
Debug.Print d;  '并输出d（不换行）
If i Mod 5 = 0 Then
    Print  '每5项换行
Else
    Print Tab((i Mod 5) * 25);
End If
a = b: b = c: c = d '更新下一次循环的前三项
Next i