更多"有一个数列，前两个数是1，2，第三个是前两个数之和，以后的每个数都是其"的相关试题:
[单项选择]有4个数，前3个数成等差数列，后3个数成等比数列，且第一个数与第四个数之和是16，第二个数和第三个数之和是12，则这4个数的和为（）。
A. 42
B. 38
C. 28
D. 32
E. 34
[简答题]有4个数，前三个数成等比数列，前三个数的和为13；后三个数成等差数列，后三个数的和为27，求这4个数。
[单项选择]有一个数列，它的前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;
[单项选择]Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即1，1，2，3，5，8，13，21，34，55，89，…某人编写了下面的函数，判断大于1的整数x是否是Fibonaeci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim a As Integer，b As Integer，c As Integer，flag As Boolean
fIag=False
a=1:b=1
Do While x＜b
c=a+b
a=b
b=c
If x=b Then flag=True
Loop
Isfab=flag
End Function
测试时发现对于所有正整数x，函数都返回False，程序需要修改。下面的修改方案中正确的是( )
A. 把a=b与b=C的位置互换
B. 把c=a+b移到b=c之后
C. 把Do while x＜b改为Do While x＞b
D. 把If x=b Then flag=True改为If x=a Then flag=True
[简答题]基本操作题
下面的程序是求菲波那契(Fibonacci)数列的前10项。已知该数列的前两项都为1，即F(1)=1,F(2)=1;而后面各项满足：F(n)=F(n-1)+F(n-2).请在程序的每条横线处填写一条语句，使程序的功能完整。
注意：请勿改动main（）主方法和其他已有的语句内容，仅在横线处填入适当的语句。
public class Fibonacci{
public static void main（ ）{
System.out.println("Fibonacci is"+" "+ );
}
static long fib(int n){
if( )
return 1;
else
return
}
}
[填空题]斐波那契(Fibonacci)数列的构成规律是：数列的第一、二个数是1，从第三个数起，每个数是其前面两个数之和。据此，下面有求斐波那契前12项值的过程，请完善之。
Sub Fibonacci(N As Integer， s1)
s1 = 0
f1 = 1
(11)
For i = 1 To N / 2
Print f1; f2;
s1 = f1 + f2
f1 = f1 + f2
f2 = (12)
Next i
Print
End Sub
Private Sub Command1_Click( )
Dim sum As Integer
Call Fibonacci(12， sum)
Print "Sum = "; sum
End Sub
[填空题]三个数成等差数列，其和为24，若首尾两数各加上2，它们又成等比数列，则这三个数依次为（）。
[单项选择]一个公比为2的等比数列，第n项与前n－1项的和的差等于3，则此数列的前4项之和是（ ）。
A. 54
B. 45
C. 42
D. 36
[填空题]完善下列程序，使两个程序的功能相同(求一个数列的前20项之和)。
【程序清单1】 【程序清单2】
CLEAR CLEAR
s=0 s=0
FOR i=1 To 20 FOR i=l TO 19 STEP 2
s=s+(-1)**(i+1)/( ) s=s+1/(i*(i+1))-1/((i+1)*(i+2))
ENDFOR ENDFOR
s S
[填空题]以下程序用来计算由键盘输入的N个数中正数之和，负数之和，正数的个数，负数的个数。其中用C累加负数之和，IC累加负数的个数，D累加正数之和，ID累加正数的个数。
Privae Sub Commandl_Click
N=10
C=0:IC=0:D=0:ID=0
For =1 To N
A=Val(1nputBox(“请输入A”))
IFA＜0 Then C=C+A：IC=IC+1
lf A＞O Then D=
Next K
Print"负数的个数为：",IC
Print"负数的和为：",C
Print"正数的个数为："，ID
Print"正数的和为：",D
End Sub
[填空题]三个数成等比数列，其和为26，其平方和为364，则这三个数依次是（）。
[判断题]如果一个数列的自相关系数出现周期性变化，每间隔若干个便有一个高峰，表明该时间数列是趋势性时间数列。 ( )
