时间:2012-06-03 20:38:38
（21）在报表中要显示格式为“共N页，第N页”的页码,正确的页码格式设置是
A）="共"+Pages+"页，第"+Page+"页"
B）="共"+[Pages]+"页，第"++"页"
C）="共"&Pages&"页，第"&Page&"页"
D）="共"&[Pages]&"页，第"&"页"
（22）某窗体上有一个命令按钮,要求单击该按钮后调用宏打开应用程序Word，则设计该宏时应选择的宏命令是
A）RunApp
B）RunCode
C）RunMacro
D）RunCommand
（23）下列表达式中,能正确表示条件“x和y都是奇数”的是
A）x Mod 2=0 And y Mod 2=0
B）x Mod 2=0 Or y Mod 2=0
C）x Mod 2=1 And y Mod 2=1
D）x Mod 2=1 Or y Mod 2=1
（24）若在窗体设计过程中，命令按钮Command0的事件属性设置如下图所示，则含义是
A）只能为"进入"事件和"单击"事件编写事件过程
B）不能为"进入"事件和"单击"事件编写事件过程
C）“进入”事件和“单击”事件执行的是同一事件过程
D）已经为“进入”事件和“单击”事件编写了事件过程
（25）若窗体Frm1中有一个命令按钮Cmd1，则窗体和命令按钮的Click事件过程名分别为
A）Form_Click() Command1_Click()
B）Frm1_Click() Command1_Click()
C）Form_Click() Cmd1_Click()
D) Frm1_Click() Cmd1_Click()
（26）在VBA中，能自动检查出来的错误是
A）语法错误
B）逻辑错误
C）运行错误
D）注释错误
（27）下列给出的选项中，非法的变量名是
A）Sum
B）Integer_2
C）Rem
D）Form1
（28）如果在被调用的过程中改变了形参变量的值；但又不影响实参变量本身，这种参数传递方式称为
A）按值传递
B）按地址传递
C）ByRef传递
D）按形参传递
（29）表达式“B=INT(A+0.5)”的功能是
A）将变量A保留小数点后1位
B）将变量A四舍五入取整
C）将变量A保留小数点后5位
D）舍去变量A的小数部分
（30）VBA语句“Dim NewArray(10) as Integer”的含义是
A）定义10个整型数构成的数组NewArray
B）定义11个整型数构成的数组NewArray
C）定义1个值为整型数的变量NewArray(10)
D）定义1个值为10的变量NewArray
（31）运行下列程序段，结果是
For m=10 to 1 step 0
k=k+3
Next m
A）形成死循环
B）循环体不执行即结束循环
C）出现语法错误
D）循环体执行一次后结束循环
（32）运行下列程序，结果是
Private Sub Command32_Click()
f0=1:f1=1:k=1
Do While k<=5
f=f0+f1
f0=f1
f1=f
k=k+1
Loop
MsgBox "f="&f
End Sub
A）f=5
B）f=7
C）f=8
D）f=13
（33）有如下事件程序，运行该程序后输出结果是
Private Sub Command33_Click()
Dim x As Integer,y As Integer
x=1:y=0
Do Until y<=25
y=y+x*x
x=x+1
Loop
MsgBox "x="&x&",y="&y
End Sub
A）x=1,y=0
B） x=4,y=25
C）x=5,y=30
D）输出其他结果
（34）下列程序的功能是计算sum=1+(1+3)+(1+3+5)+……+(1+3+5+……+39)
Private Sub Command34_Click()
t=0
m=1
sum=0
Do
t=t+m
sum=sum+t
m=______
Loop While m<=39
MsgBox "Sum="&sum
End Sub
为保证程序正确完成上述功能，空白处应填入的语句是
A）m+1