有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，……
要求编写程序输出该数列中所有不超过1000的数。
某人编写程序如下：
Private Sub Form Click()
Dim i As Integer, a As Integer, b As Integer
Dim c As Integer, d As Integer
a=0:b=1:c=1
d=a+b+c
i=5
While d＜=1000
Print d;
a=b:b=c:c=d
d=a+b+c
i=i+1
Wend
End Sub
运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是( )。
A．把While d＜=1000改为While d＞1000
B．把i=5改为i=4
C．把i=i+1移到while d＜=1000的下面
D．在i=5的上面增加一个语句：Print a;b;c;