单项选择题 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 a As Integer, b As Integer, c As Integer, flag As Boolean 　　flag=False 　　a=1：b=I 　　Do While x＜b 　　c=a＋b 　　a=b 　　b=c 　　If x=b Then flag=True 　　Loop 　　Isfab=flag 　　End Function 　　测试时发现对于所有正整数x,函数都返回False,程序需要修改。下面的修改方案中正确的是（）

单项选择题 在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码： 　　Private Sub Command l_Click（） 　　Dim a 　　a=Array（1,2,3,4） 　　I=3：j=1 　　Do While i＞=0 　　s=s＋a（i）*j 　　i=i-1 　　j=j*10。 　　Loop 　　Print s 　　End Sub 　　运行上面的程序，单击命令按钮，则输出结果是（）

单项选择题 有如下事件过程： 　　Private Sub Form Click（） 　　Dim n A s Integer 　　x=0 　　n=InputBox（"请输入一个整数”） 　　For i=1 Ton 　　For j=1 To i 　　x=x＋I 　　Next j 　　Next i 　　Print x 　　End Sub 　　程序运行后，单击窗体，女口果在输入对话框中输入：，则在窗体上显示的内容是（）