niusouti.com
有一个数列，它的前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+1WendE
题目
有一个数列，它的前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；
相似考题
更多“有一个数列,它的前3个数为0,1,1,此后的每个数都是其前面3个数之和,即0,1,1,2,4,7,13,24,……要求编 ”相关问题
-
第1题：
有4个数,前3个数成等差数列,后3个数成等比数列,且第一个数与第四个数之和是16,第二个数和第三个数之和是12,则这4个数的和为（ ）A.42
B.38
C.28
D.32
E.34答案：C解析：设第一个数为x，则第四个数为16-x，设第二个数为y，则第三个数为12-y。 -
第2题：
求斐波那契（Fobonacci）数列的前40个数。这个数列有如下特点：第1、2个数均为1，从第3个数开始，每个数均是前两个数之和。问该数列的前40个数各是多少？ 提示：每行输出5个数据，每个数据输出宽度为12个字符。
每一项等于前两项之和 -
第3题：
已知Fibonacci数列是1，1，2，3，5，8，13，...，即从第3个数开始，每个数都是前两个数的和。则Fibonacci数列前25个数之和是________。
A．121392
B．196417
C．75024
D．317810
12586269025 -
第4题：
有一个数列，它的第一项为0，第二项为1，以后每一项都是它的前两项之和，试产生该数列的前20项，并按逆序显示出来。
C -
第5题：
已知Fibonacci数列是1，1，2，3，5，8，13，...，即从第3个数开始，每个数都是前两个数的和。Fibonacci数列的第15个数是________。
A．377
B．610
C．987
D．1597
#include <stdio.h>
main()
{ int i;
int f[20]={1,1};
for(i=2;i<20;i++)
f[i]=f[i-2]+f[i-1];
for(i=0;i<20;i++)
{ if(i%5==0) printf("
");
printf("%12d",f[i]);
}
}