计算机二级考试VB2014年试题9

　21．以下说法中错误的是(    )。 
　　A．如果把一个命令按钮的Default属性设置为True，则按回车健与单击该命令按钮的 
　　作用相同 
　　B．可以用多个命令按钮组成命令按钮数组 
　　C．命令按钮只能识别单击(Click)事件 
　　D．通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用 
　　22．以下关于局部变量的叙述中错误的是(    )。 
　　A．在过程中用Dim语句或Static语句声明的变量是局部变量 
　　B．局部变量的作用域是它所在的过程 
　　C．在过程中用Stalic语句声明的变量是静态局部变量 
　　D．过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放 
　　23．以下程序段的输出结果是(    )。 
　　x=1 
　　y=4 
　　Do Until y>4 
　　  x= x * y 
　　  y=y+1 
　　Loop 
　　Print X 
　　A．1  
　　B．4 
　　C．8  
　　D．20 
　　24．如果执行一个语句后弹出如图所示的窗口，则这个语句是(    )。 
　　 
　　A．InputBox("输人框"，"请输入VB数据") 
　　B．x=InputBox("输入框"，"请输入VB数据")  
　　C．InputBox("请输入VB数据"，"输入框") 
　　D．x=InputBox("清输入VB数据"，"输入框") 25．有如下事件过程： 
　　Private Sub Form Click() 
　　  Dim n As Integcr 
　　  x=0 
　　n=InputBox("请输入一个整数") 
　　  For i=1 To i 
　　    For i=1 To i 
　　      x=x+1 
　　    Next j 
　　  Next i 
　　  Print x 
　　End sub  
　　程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是(    )。 
　　A．13  
　　B．14 
　　C．15  
　　D．16 
　　26．请阅读程序： 
　　Sub subP(b()As Integer) 
　　  For i=1 To4 
　　    b(i)=2*i  
　　  Next i 
　　End Sub 
　　Private Sub Commandl 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  
　　    4 
　　    6 
　　    8 
　　B． 5 
　　    6 
　　    7 
　　    8 
　　C． 10  
　　    12 
　　    14 
　　    16 
　　D．出错 
　　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 ii As Integer，b As Integer，C As Integer，flag As Boolean 
　　  flag=False 
　　  a=1：b=1 
　　  Do While x　　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 xb 
　　D．把If x=b Then flag=True改为If x=a Then flag True 
　　28．在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： 
　　Private Sub Coinmand1 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 If 
　　    If k<=Len(b)Then 
　　      c=c＆Mid(a，k，1) 
　　    End If 
　　    k=k+1 
　　  Loop 
　　  Print c 
　　End Sub 
　　运行程序，单击命令按钮，输出结果是(    )。 
　　A．123456ABCD  
　　B．ABCD123456 
　　C．D6C584A321  
　　D．A1B2C3D456 
　　29．请阅读程序： 
　　Private Sub Form Click() 
　　  m=1 
　　  For i=4To 1 Step-1 
　　    Print Str(m)； 
　　  
　　m=m+1 
　　For j=1 To i 
　　  Print"*"： 
　　Next j 
　　Print  
　　  Next i 
　　End Sub 
　　程序运行后，单击窗体，则输出结果是(    )。 
　　A．1****  
　　2*** 
　　3** 
　　4* 
　　B．4**** 
　　    3*** 
　　    2** 
　　    1* 
　　C．****  
　　*** 
　　** 
　　* 
　　D．* 
　　    ** 
　　    *** 
　　    **** 
　　30．在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command1 Click() 
　　  Dim a 
　　  a=Array(1，2，3，4) 
　　  i=3：j=1 
　　  Do While>=0 
　　    s=s+a i)*j 
　　    i=i-1 
　　    j=j*1c 
　　  Loop 
　　    Print S 
　　End Sub 
　　运行上面的程序，单击命令按钮，则输出结果是(    )。 
　　A．4321  
　　B．123 
　　C．234  
　　D．1234