2. 计算机
  3. Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返

Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返

admin2013-10-06  57
问题 Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2，3，5，8，13，21，34，55，89，…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True，否则返回False。
Function Isfab(x As Integer)As Boolean
Dim aAsInteger,bAs Integer,cAsInteger,flagAs Boolean
flag=False
a=1：b=1
Do Whilex＜b
c=a+b：a=b：b=c
Ifx=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、把Ifx=b Then flag=True改为Ifx=a Then／flag=True  
答案C
解析 在中通过分析题干中的程序可以看出，函数的返回值就是变量flag的值。错误现象是无论输入哪个正整数均会返回False，这就代表着没有执行循环，直接输出的就是变量flag的初值False。进一步分析可以看出，由于b的初值为l，而任何正整数均不会小于1，所以永远无法满足循环条件从而进入循环，因此需要将条件x＜b改为x＞b。
转载请注明原文地址:https://kaotiyun.com/show/tmQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)