有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，… 要求编写程序输出该数列中所有不超过1000的数。 某人编写程序如下： Private Sub Form. Click（ ） Dim i As Intender，a As Integer，b As Integer Dim C As Integer，d As Integer a=0：b=1：c=1 d=a4-b4-c i=5 While d=1C00 Print d； a=b：b=c：c=d d=a+b+c i=i+1 Wend End Sub 运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（ ）。A.把While d=1000改为while d1000B.把i=5改为i=4C.把i=i+1移到While d=1000的下面D.在i=5的上面增加一个语句：Print a；b；C；
有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，… 要求编写程序输出该数列中所有不超过1000的数。 某人编写程序如下： Private Sub Form. Click（ ） Dim i As Intender，a As Integer，b As Integer Dim C As Integer，d As Integer a=0：b=1：c=1 d=a4-b4-c i=5 While d<=1C00 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；
相关考题：
有一个数列，它的前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 IntegerDim C As Integer，d As Integera=0：b=1：c=1d=a+b+Ci=5While d=1000Print d；a=b：b=C：C=dd=a+b+ci=i+1WendEnd Sub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A．把While d=1000改为While d1000B．把i=5改为i=4C．把i=i+1移到While d=1000的下面D．在i=5的上面增加一个语句：Print a；b；c；
有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，2，4，7，13，24，…要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下：Private Sub Form. Click（ ）Dim i As Intender，a As Integer，b As IntegerDim C As Integer，d As Integera=0：b=1：c=1d=a4-b4-ci=5While d=1C00Print d；a=b：b=c：c=dd=a+b+ci=i+1WendEnd Sub运行上面的程序。发现输出的数列不完整，应进行修改。以下正确的修改是（ ）。A.把While d=1000改为while d=1000B.把i=5改为i=4C.把i=i+1移到While d=1000的下面D.在i=5的上面增加一个语句：Print a；b；C；
求斐波那契（Fobonacci）数列的前40个数。这个数列有如下特点：第1、2个数均为1，从第3个数开始，每个数均是前两个数之和。问该数列的前40个数各是多少？ 提示：每行输出5个数据，每个数据输出宽度为12个字符。
已知Fibonacci数列是1，1，2，3，5，8，13，...，即从第3个数开始，每个数都是前两个数的和。Fibonacci数列的第15个数是________。A．377B．610C．987D．1597
已知Fibonacci数列是1，1，2，3，5，8，13，...，即从第3个数开始，每个数都是前两个数的和。则Fibonacci数列前25个数之和是________。A．121392B．196417C．75024D．317810