单项选择题

有一个数列,它的前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;