C)运行错误 D)语法错误和逻辑错误
(22)为窗体或报表的控件设置属性值的正确宏操作命令是（第306页） A)Set B)SetData C)SetValue D)SetWarnings (23)在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：
Private Sub Commandl_Click()
subT.Form.RecordSource = \雇员\ End Sub
单击该按钮实现的功能是
A)使用select命令查找“雇员”表中的所有记录 B)使用select命令查找并显示“雇员”表中的所有记录 C)将subT窗体的数据来源设置为一个字符串 D)将subT窗体的数据来源设置为“雇员”表 (24)在报表设计过程中，不适合添加的控件是
A)标签控件 B)图形控件 C)文本框控件 D)选项组控件 注：报表在设计中，标签、图形以及文本框都可以辅导数据或者文字、图片的输入，但选项组控件在设计过程中无法改变其值。
(25)下列关于对象“更新前”事件的叙述中，正确的是（第309页）
A)在控件或记录的数据变化后发生的事件 B)在控件或记录的数据变化前发生的事件 C)当窗体或控件接收到焦点时发生的事件 D)当窗体或控件失去了焦点时发生的事件 (26)下列属于通知或警告用户的命令是
A)PrintOut B)OutputTo C)MsgBox D)RunWarnings (27)能够实现从指定记录集里检索特定字段值的函数是（第278页）
A)Nz B)Find C)Lookup D)DLookup
(28)如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是
A)0.01*Int(x+0.05) B)0.01*Int(100*(X+0.005)) C)0.01*Int(x+0.005) D)0.01*Int(100*(X+0.05))
注：需要在千分位进行四舍五入操作，则最后结果肯定是精确到百分位的。而Int只能取整，无法取小数部分，因此，必须对转换对象进行一个先乘一百再除以一百的操作。而如果想在千分位进行四舍五入，又必须对于千分位进行加5的操作。这样，千分位上为4和4以下的，百分位不变，而千分位上5及5以上的，百分位将加1.
(29)在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为 A)20 B)24 C)25 D)36
注：A(2 to 5)第一个元素为A(2,0),最后一个元素是A(5,5),第一维上有2~5四种变化，而第二维上有0~5六种变化，因此元素数为4*6=24个。
(30)由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行
A)0次 B)1次 C)4次 D)5次
注：对于步长为负数且循环变量的初值又比终值小的循环，会直接退出。
(31)在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：
Private Sub Command1_Click() Dim i,j,x
For i = 1 To 20 step 2 x = 0
For j =i To 20 step 3 x = x + 1 Next j
Next i
Textl.Value=Str(x) End Sub
打开窗体运行后，单击命令按钮，文本框中显示的结果是 A)1 B)7 C)17 D)400
注：对于外层的i循环，因为其循环体第1句就是将x置0，所以只考虑其最后一次循环，最后一次循环时，i的值是19.此时，里面循环j的初值为19，终值为20，步长为3，则其循环体只运行一次，即x的值只加一个1.
(32)在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Commandl_Click() Dim y As Integer y = 0 Do
y = InputBox(\
If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y; Loop Until y = 0 End Sub
打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是 A)37 55 64 28 19 -19 B)10 50 20 C)10 50 20 0 D)37 55 64 28 19
注：do loop while循环是为了控制输入。而直接输出是debug.print y，即if then 这个选择中，此题的关键在于读懂if(y mod 10)+int(y/10)=10这个条件，y mod 10是取y的各位上的数。而int(y/10)则是相当于取y的十位上的数，满足这个条件的二位数的y值有：19，28，37，46，55，64，73，82，91，且只能为正数。
(33)在窗体上有一个命令按钮Commandl，编写事件代码如下： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 12: y = 32 Call Proc(x, y) Debug.Print x; y End Sub
Public Sub Proc(n As Integer, ByVal m As Integer) n = n Mod 10 m = m Mod 10