Fibonacci数列的规律是:前2个数为1,从第3个数开始,每个数是它前2个数之和,即1,1,2,3,5,8,13,2l,3
Function Isfab(x As Integer)As Boolean
Dim a As Integer,b As Integer,c As Integer,flag As Boolean
flag=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