1、国家二级 ACCESS机试选择题（ VBA编程）模拟试卷 4及答案与解析 一、选择题 1 VBA中一般采用 Hungarian符号法命名变量，代表报表的字首码是 （ A） Chk （ B） Qry （ C） Rpt （ D） Cbo 2 在标准模块 “模块 1”声明区中定义了变量 x和变量 y，如下所示，则变量 x和变量 y的作用范围分别是 Dim x As Integer Public Y As Integer Sub demoVar() x=3 y=5 Debug Print x “ y End Sub （ A）模块级变量和过程级变量 （ B）过程级变量和公共变量 （ C）模块级变量和公共
2、变量 （ D）过程级变量和模块范围 3 下列 Access内置函数中，用于去掉字符串前后空格的函数是 （ A） Ltrim （ B） Rtrim （ C） Space （ D） Trim 4 下列程序的输出结果是 Dim x As Integer Private Sub Command4_Click() Dim y As Integer x=1 y=10 Call fun(y， x) MsgBox“y=“ y End Sub Sub fun(ByRef y As Integer， ByVal z AsInteger) y=y+z z=y-z EndSub （ A） y=1 （ B） y=10
3、（ C） y=11 （ D） y=9 5 下列程序的输出结果是 Private Sub Command3_Click() t=0 m=1 sum=0 =t+m sum=sum+t m=m+1 Loop While m0) Debug Print End Sub 有如下语句： t=x t=y t=x y t=x Mod y x y t x y 程序中有两个 ，将程序补充完整的正确语句是 （ A） （ B） （ C） （ D） 21 打开名为 “学生信息 ”的窗体时，首先发生的事件是 （ A）打开 (Open) （ B）加载 (Load) （ C）激活 (ActiVate) （ D）成为当前 (C
4、urrent) 22 下 列表达式中，与 DateDiff(“m“， #1893-12-26#， Date()等价的表达式是 （ A） (Month(date()-Month(#1893-12-26#) （ B） (MonthName(date()-MonthName(#1893-12-26#) （ C） (year(date()-year(#1893-12-26#)*12-(month(date()-month(#1893-12-26#) （ D） (year(date()-year(#1893-12-26#)*12+(month(date()-month(#1893-12-26#) 23
5、要在一个窗体的某个按钮的单击事件上添加动作，可以创建的宏是 （ A）只能是独立宏 （ B）只能是嵌入宏 （ C）独立宏或数据宏 （ D）独立宏或嵌入宏 24 内置计算函数 Avg的功能是 （ A）计算所有指定字段值的平均值 （ B）计算全部数值型字段的平均值 （ C）计算一条记录中数值型字段的平均值 （ D）计算一条记录中指定字段的平均值 25 打开指定窗体的宏操作命令是 （ A） Docmd OpenForm （ B） Docmd OpenQuery （ C） OpenForm （ D） OpenQuery 26 若要使窗体上的标签控件 Lab1可显示，则在 VBA中正魂的设置是 （ A）
6、Lab1 Enable=False （ B） Lab1 Visible=False （ C） Lab1 Enable=True （ D） Lab1 Visible=True 27 在 VBA中要定义一个 100元素的个整型数组，正确的语句是 （ A） Dim New Array(100)As Integer （ B） Dim New Array(2 To 101)As Integer （ C） Dim New， Array(2 To 101) Dr)Dim New Array(100) 28 下列关于 Access内置函数的分类中，错误的是 （ A）表函数 （ B）转换函数 （ C）文本函数
7、（ D）程序流程函数 29 已知过程对应的代码如下： SubProc() n=1 f1=0 f2=1 Do While n)：删除字符串的开始空格； RTrim()：删除字符串的尾部空格； Triml)：删除字符串的开始和尾部空格； space()：返回数值表达式的值指定的空格字符数。本题选项 D正确。 【知识模块】 VBA编程 4 【正确答案】 C 【试题解析】 在函数参数传递中，包括按地址传递 ByRef和按值传递 ByVal两种方法。其中前者在函数体内改变变量值会影响参 数外的变量，后者不会。本题 y是按地址传递，调用 fun()函数，会将 y的值改为 fun()函数中 y的值，所以应选
8、择选项 C。 【知识模块】 VBA编程 5 【正确答案】 C 【试题解析】 本题考查 Do Loop While循环的执行过程。 Do Loop While循环结构是先执行后判断，循环语句至少执行一次。 While关键字用于指明条件为真时执行循环体内语句，当条件为假时，结束循环。该题的循环体要执行 4次，第 4次结束时 m=5，不满足循环的条件，因此循环终止。根据代码执行的结果，最后sum=20，所 以选择选项 C。 【知识模块】 VBA编程 6 【正确答案】 A 【试题解析】 本题考查的是变量标识符的命名规则。标识符的名字以一个或者多个小写字母开头作为前缀；之后接第一个单词的首字母大写或者多
9、个单词的组合，且该单词要指明变量的用途。本题是根据输入 Num然后 (After)更新(Update)tName内容，所以选择选项 A。 【知识模块】 VBA编程 7 【正确答案】 A 【试题解析】 本题考查的是如何使用 ADO数据库技术操作数据库。其中，RecordSet对象 rs是用来表 示来自基本表或命令执行结果的记录集。 rs更新完一条记录之后，需要使指针往后移动下一个记录上 (注： MoveNet，移动到下一个记录的位置 )。因此本题应选择选项 A。 【知识模块】 VBA编程 8 【正确答案】 B 【试题解析】 取消自动运行宏，打开数据库时按住 Shift键即可，所以选项 B正确。
10、【知识模块】 VBA编程 9 【正确答案】 D 【试题解析】 日期时间函数 DateDiff(间隔类型，日期 1，日期 2W1， W21)返回两个日期之间按照间隔类型指定的时间间隔数目。 题目中的间隔类型为 “m”表示月，函数 Date()获得当前系统日期，表达式的结果是当前系统日期与 2013-11-25之间相差的月数，即为 “(当前年份 -2013)*12+(当前月份 -12)”，所以选择选项 D。 【知识模块】 VBA编程 10 【正确答案】 C 【试题解析】 VBA中调用宏对象，可以使用 Docmd RunMicro“宏名 ”语句调用宏，所以选项 C叙述错误。 【知识模块】 VBA编程
11、 11 【正确答案】 A 【试题解析】 SUM函数的功能是求指定字段值的累加和，所以选项 A正确。 【知识模块】 VBA编程 12 【正确答案】 D 【试题解析】 Docmd对象是 VBA中使用的，在宏中打开查询对象，直接使用宏命令 “OpenQuery”，所以选项 D正确。 【知识模块】 VBA编程 13 【正确答案】 A 【试题解析】 Enable属性为 “可用性 ”，值设置为 “true”表示可用，值设置为“false”表示可见： visible属性为 “可见性 ”，值设置为 “true”表示可见，值设置为“false”表示不可见，所以选项 A正确。 【知识模块】 VBA编 程 14 【
12、正确答案】 A 【试题解析】 Resize事件是在打开窗体后，当窗体的大小发生变化时触发的事件。 Change事件是当文本框或其它控件中的文本或数据发生变化时触发的事件。Unload事件是加载窗体时激发的事件。 AfterUpdate文本框内容更新后激发的事件，所以选择选项 A。 【知识模块】 VBA编程 15 【正确答案】 B 【试题解析】 ADO(ActiveX Data Objects)提供了编程语言和统一数据访问方式OLEDB的一个中间层，是一个用于存取数据源的 COM组件。 ADO包含一些顶层的对象： Connection代表数据库的连接； Recordset结果集，表示数据库中记录
13、的一个集合： Command对象主要作用是在 VBA中用 SQL语句访问、查询数据库中的数据，可以完成 Recordset对象不能完成的操作，如创建表、修改表结构、删除表、将查询结果保存为新表等； Error依赖于 Connection对象的使用，代表访问数据库的过程中产生的错误； Field依赖于 Recordset对象的使用，代表记录集中的字段数据信息。 Parameters依赖于 Command对象的 使用，代表 SQL语句中传递的参数。 【知识模块】 VBA编程 16 【正确答案】 C 【试题解析】 域聚合函数和 SOL聚合函数，两者提供相似的功能，但用于不同的场合。 SQL聚合函数可
14、以在 SQL语句中使用，但不能直接从 VisualBasic中调用。与之不同的是，域聚合函数不仅可以直接从 visualBasic代码中调用，也可以在 SQL语句中使用，不过 SQL聚合函数通常更为有效。由于域聚合函数可以直接从 visuaIBasic代码中调用，因此使用之前不必先进行数据库连接和打开操作，所以选择选项 C。 【知识模块】 VBA编程 17 【正确答案】 C 【试题解析】 VBA中引用 Access窗体中的控件对象的格式为： Forms!窗体名称 !控件名 属性名 。注意：引用控件属性时，只能使用 “ ”不能使用 “!”，所以选项 C错误。 【知识模块】 VBA编程 18 【正
15、确答案】 D 【试题解析】 本题主要考查局部变量的使用和函数调用过程中的参数传递。参数传递的方式有传值和传址两种形式，其中默认的方式是传址。本题中 Click事件和函数 f都有变量 y，但都是各自的局部变量，只是同名而已。同 样 Click事件和函数 f中的 x也是局部变量 (形式参数也属于局部变量 )，但此处的参数传递是传址，因此函数 f对变量 x的修改会带回到 Click事件。在 Click事件中，调用函数 f的同时将参数 x以传址的方式传给了函数 f。在函数 f中 x被重新赋值为 30，并与函数 f的局部变量 y相乘得结果 90，并通过函数 f传回了 Click事件。在 Click事件中
16、该结果被赋值给该事件的局部变量 y，所以调用的结果是 Click事件中的局部变量 x和 y分别变成了 30和 90，所以正确答案为选项 D。 【知识模块】 VBA编程 19 【正确答 案】 A 【试题解析】 本题考查的是变量标识符的命名规则。标识符的名字以一个或者多个小写字母开头作为前缀；之后接第一个单词的首字母大写或者多个单词的组合，且该单词要指明变量的用途。本题是根据输入 Num然后 (After)更新(Update)tName内容，所以选择选项 A。 【知识模块】 VBA编程 20 【正确答案】 D 【试题解析】 求两个整数 x和 y的最大公约数的算法是：令 t等于 x除以 y的余数，若
17、 t=0，则 y为 x和 y的最大公约数。若 t不为 0，则可以肯定最大公约数必为小于 y的数，则可令 x=y， y=t，再返回开始状态，执行 t=x mod y。直到 t=0时， x为最大公约数。因此程序中 Do和 Loop之间为循环体，第一个空应填 t=x mod y，第二个空为输出语句，应该输出 x，所以选择选项 D。 【知识模块】 VBA编程 21 【正确答案】 A 【试题解析】 打开窗体时，发生的事件依次为：打开 (Open) 加载 (Load) 调整大小 (Resize) 激活 (Activate) 成为当前 (Current)，所以选项 A正确。 【知识模块】 VBA编程 22
18、【正确答案】 D 【试题解析】 日期时间函数 DateDiff(间隔类型，日期 1，日期 2， W1， W2)返回两个日期之间按照间隔类型指定的时间间隔数目。题目中的间隔类型为 “m”表示月，函数 Date()获得当前系统日期，表达式的结果是当前系统日期与 1893-12-26之间相差的月数，即为 “(当前年份 -1893)*12+(当前月份 -12)”。 【知识模块】 VBA编程 23 【正确答案】 D 【试题解析】 独立宏是独立的对象，它独立于窗体、报表等对象之外。在导航窗格中可见。因此可以创建独立宏响应按钮的单击 事件，不受其他对象约束。嵌入宏是嵌入在窗体、报表或控件对象的事件中。是他们
19、所嵌入的对象或控件的一部分。在导航窗格中不可见，因此也可以创建嵌入宏，直接嵌入按钮的单击事件中，所以选择选项 D。 【知识模块】 VBA编程 24 【正确答案】 A 【试题解析】 Avg函数的功能是求指定字段值的平均值，所以选项 A正确。 【知识模块】 VBA编程 25 【正确答案】 C 【试题解析】 Docmd对象是 VBA中使用的，在宏中打开窗体对象，直接使用宏命令 “OpenForm”，所以选项 C正确。 【知识模块】 VBA编程 26 【正确答案】 D 【试题解析】 窗体上的标签控件用于显示说明性的文本，没有数据源，不显示字段或表达式的值，显示的内容是固定不变韵。标签控件的属性 Vis
20、ible的功能是设置标签内容的可见性。如 Visible属性设为 True，则标签控件上的文本可以显示；若设为 False，则标签控件的文本不可显示，所以选择 D选项。 【知识模块】 VBA编程 27 【正确答案】 B 【试题解析】 VBA中定义数组格式为： Dim 数组名 (下标下限 to) 下标上 限 ) As 数组类型 缺省情况下，下标下限为 0，数组元素从 “数组名 (0)”至 “数组名 (下标上限 )”；如果使用 to选项，则可以安排非 0开始的下标下限。本题中 c、 D选项没有指定数据类型，默认为变体型，不符合题意； A选项中数组下标默认从 0开始， 0到 100共 101个元素，
21、不符合题意：所以只有选项 B正确。 【知识模块】 VBA编程 28 【正确答案】 A 【试题解析】 在 Access中常用的内置函数有财务函数、日期函数、算术函数、文本函数、转换函数、检查函数，没有表函数。所以选择选项 A。 【知识模块】 VBA编程 29 【正确答案】 A 【试题解析】 程序执行过程如下： 程序初始化 f1=0； f2=1； 当 n=1时； For n=1 to 81，执行第一次循环，条件为 true； f=f1+f2=0+1=1输出f的值为 1； f1=f2=1； f2=f=2； 当 n=2时；执行第二次循环，条件为 true； f=f1+f2=1+1=2输出 f的值为 2
22、：f1=f2=1； f2=f=2； 当 n=3时；执行第三次循环，条件为 true； f=f1+f2=1+2=3输出 f的值为 3；f1=f2=2； f2=f=3： 当 n=4时；执行第四次循环，条件为 true； f=f1+f2=2+3=5输出 f的值为 5；f1=f2=3； f2=f=5： 当 n=5时；执行第五次循环，条件为 true； f=f1+f2=3+5=8输出 f的值为 8；f1=f2=5： f2=f=8： 当 n=6时；执行第六次循环，条件为 true； f=f1+f2=5+8=13输出 f的值为 13；f1=f2=8； f2=f=13； 当 n=7时；执行第七次循环，条件为
23、true； f=f1+f2=8+13=21输出 f的值为 21；f1=f2=13； f2=f=21： 当 n=8时；执行第八次循环，条件为 true； f=f1+f2=13+21=34输出 f的值为 34；f1=f2=21； f2=f=34： 当 n=9时；执行第九次循环，条件为 false：循环结束。 综上所述，输出结果依次为 1， 2， 3， 5， 8， 13， 21， 34，该数据列是斐波那契序列中 2到 9对应的序列值 (注：第 1项为 0，第 2项为 1)，所以选项 A正确。 【知识模块】 VBA编程 30 【正确答案】 B 【试题解析】 Access内置函数中域聚合函数包括 DAvg、 DCount漩 玳、DFirst、 DLookup、 DMax、 Dmin等，所以选择选项 B。 【知识模块】 VBA编程
