林part4基本控制结构与数组12.doc

10.9 23．以下程序段的输出结果是 x=1 y=4 do Until y4 x=x*y y=y+1 Loop Print x A）1 B）4 C）8 D） 20 答案： B 25.有如下事件过程 Private Sub Form_click() Dim n as Integer x=0 n=InputBox(“请输入一个整数”) For i=1 to n For j=1 to i x=x+i Next j Next i Print x End Sub 程序运行后，单击窗体，如果在输入对话框中输入：3 ，则在窗体上显示的内容是 A）13 B）14 C）15 D）16 分析：循环嵌套,此题只能按常规分析。 i=1： For j=1 to 1 x=x+i执行1次 x=1 i=2： For j=1 to 2 x=x+i执行2次 x=1+4=5 i=3： For j=1 to 3 x=x+i执行3次 x=5+9=14 答案： B26）请阅读程序：　　Sub subP（b（）As Integer）　　For i=1 To 4　　b（i）=2＊i　　Next i　　End Sub　　　　Private Sub Command 1_Click（）　　Dim a（1 To? 4）As Integer　　A（1）=5：a（2）=6：a（3）=7：a（4）=8　　subP a（）　　For i=1 To 4　　Print a（i）　　Next i　　End Sub　　运行上面的程序，单击命令按钮，则输出结果是　　A）2????? B）5????? C）10????? D）出错　?? 　 4???????? 6???????? 12　?? 　 6???????? 7???????? 14　?? 　 8???????? 8???????? 16 解题依据： 1、subP a( )是subP过程调用， a( )是传给subP过程的实参数（传给形参b数组） 2、Sub subP（b（）As Integer）过程的功能是：对b数组中1-4号元素赋值，赋的值是元素序号的2倍。 答案： A 27）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 ‘假定x不是Fibonacci数　　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解题思想： 1、flag是x是否为Fibonacci数的标志，True为是，False为不是 2、最小Fibonacci数列为：1，1。判x1的数是否Fibonacci数 如果xFibonacci数列最后项，就做Fibonacci数列下一项，将下一项命为最后项，再判断x=最后项否，等则flag=True（这时loop返回，While条件一定不成立），不等不改变flag=False这个值（这时loop返回，While条件可能成立，可能不成立。While条件成立，再执行循环体） 答案： C 28）在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：　　Private Sub Command1_Click（）　　Dim a$, b$,c$, k%　　a=ABCD”　　b=”123456”　　c=　　k=1　　Do While k＜= Len（a）Or k＜=Len（b）　　If k＜=Len（a）Then　　c=c ＆ Mid（a, k, 1）　　End