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