1、国家二级 ACCESS机试选择题（ VBA编程）模拟试卷 1及答案与解析 一、选择题 1 打开一个窗体，要通过选择窗体的数据输入与窗体方式，限制窗体所显示的记录，应使黑的宏操作命令是 （ A） Open Report （ B） Open Table （ C） Open Farm （ D） Open Query 2 在窗体中有一个命令按钮 Command1，两个文本框 Tect()和 Text1，按钮Command1对应的代码过程如下： Private Sub Command1_Clickl() Dim m， k As Integer Dim flag As Boolean m=Val(Me!T
2、ext0)输入一个整数 Do White 1 k=2 flag=True Do While kf2 Then i=f2 Else i=f1 End If flag=True Do While i1 And flag If f1 Mod i=0 And f2 Mod i=0 Then flag=False Else i=i-1 End If Loop Me!Text2=i End Sub 运行程序，在文本框 Text0和 Textl中分别输入 15和 25，单击按钮后文本框Text2中显示的结果是 （ A） 5 （ B） 10 （ C） 15 （ D） 25 4 在 VBA中要定义一个由 10个
3、整型数构成的数组，正确的语句是 （ A） Dim New Array(10)As Integer （ B） Dim New Array(2To11)As Integer （ C） Dim New Array(2To11) （ D） Dim New Array(10) 5 VBA中一般采用 Hungarian符号法命名 变量，代表命令列表框的字首码是 （ A） lst （ B） txt （ C） Chk （ D） sub 6 VBA中，将字符串的首字母转换为对应的字符代码的函数是 （ A） Asc （ B） Str （ C） String （ D） Chr 7 下列关于内置函数分类的选项中，不是
4、 Access内置函数分类的是 （ A）表 （ B）数据库 （ C）数组 （ D）程序流程 8 如果在北京时间 12点 00分运行以下代码，程序的输出是 Sub Procedure() If Hour(Time()=8 And Hour(Time()12 And Hour(Time()f2 Then i=f2 Else i=f1 End If flag=True Do While i1 And flag If f1 Mod i=0 And f2 Mod i=0 Then flag=False Else i=i-1 End If Loop Me!Text2=i End Sub 运行程序，在文本框
5、 Text0和 Text1中分别输入 15和 20，则文本框 Text2中显示的结果是 （ A） 5 （ B） 15 （ C） 20 （ D） 10 国家二级 ACCESS机试选择题（ VBA编程）模拟试卷 1答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 OpenReport为打开报表， OpenTable为打开表， OpenForm为打开窗体， OpenQuery为打开查询，所以选项 C正确。 【知识模块】 VBA编程 2 【正确答案】 A 【试题解析】 根据题目要求，输入一个整数赋值给 m；外层 Do While循环条件设置为 “1”，表示循环条件永远为 “真 ”，第一次执行
6、循环语句时： k=2，flag=true，内层 Do While k1 And flag”，结果为 true，循环体中的 if语句，只有当 f1和 f2同时能被 i整除， flag才会被赋值为 false，否则将变量 i减 1，继续进行 Do While循环的条件判断，一旦 f1和 f2同时能被 i整除，变量 flag被赋值为 false，则整个循环结束，将变量 i的值输出到文本框 Text2中，所以只有当变量 i为 5时，才能同时被住 (15)和 f2(25)整除，本题程序的功能是求两个数的最大公约数，故选项 A正确。 【知识模块】 VBA编程 4 【正确答案】 B 【试题解析】 VBA中数
7、组定义的格式为： Dim 数组名 (下标 下界 to下标上界 )As 数组类型 下标下界的默认值为 0，本题中要定义一个由 10个整型数构成的数组， A选项定义了 11个元素， c、 D选项未指定数据类型，默认是变体型， B选项定义了 10个整型数的数组，所以选项 B正确。 【知识模块】 VBA编程 5 【正确答案】 A 【试题解析】 Hungarian符号使用一组代表数据类型的码。用小写字母作为变量名的前缀，命令列表框的字首码是 “Ist”， “txt”代表文本框， “Chk”代表复选框，“sub”代表子窗体子报表，所以选项 A正确。 【知 识模块】 VBA编程 6 【正确答案】 A 【试题
8、解析】 Asc函数为字符串转换字符 ASCII码函数，该函数返回字符串首字符的 ASCII码值； Str函数为数字转换成字符串函数，该函数将数值表达式的值转换成字符串； Chr函数为字符 ASCII码值转换为字符函数，该函数返回与字符代码相关的字符， String不是类型转换函数， String是返回一个由字符表达式的首字符重复组成的指定长度为数值表达式的字符串，所以选项 A正确。 【知识模块】 VBA编程 7 【正确答案】 A 【试题解析】 在 Access中常用的内置函数有财务函数、日期函数、算术函数、文本函数、转换函数、检查函数，没有表函数。表是 Access的对象，不是函数，所以应选择
9、选项 A。 【知识模块】 VBA编程 8 【正确答案】 B 【试题解析】 Time()函数可以返回系统当前时间， Hour(Time()可以返回系统当前时间的小时，本程序中的 if elseif多分支判断语句，判断系统当前时间的小时值，如果在 8到 12点之间 (含 8点和 12点 )，则输出 “上午好 ”，如果在 12点到 18点之间 (含 18点 )，则输出 “下午好 ”，除此之 外输出 “晚上好 ”，因为当前系统时间为 12点，所以输出 “上午好 ”，所以选项 B正确。 【知识模块】 VBA编程 9 【正确答案】 A 【试题解析】 本题中程序执行过程： 程序初始化 f1=0； f2=1；
10、 当 n=1时； For n=1 to 8；执行第一次循环，条件为 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；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=s； 当 n=5时；执行第五次循
11、环，条件为 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时：执行第七次循环，条件为 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；循环结束。 综上所述
12、，输出结果依次为 1， 2， 3， 5， 8， 13， 21， 34，该数据列是斐波那契序列中 2到 9对应的序列值 (注：第 1项为 0，第 2项为 1)，所以选项 A正 确。 【知识模块】 VBA编程 10 【正确答案】 B 【试题解析】 数据库数据访问中常用的域聚合函数有： Nz函数、 DCount函数、DAvg函数和 DSum函数、 DMax函数和 DMin函数及 DLookup函数，所以选项B正确。 【知识模块】 VBA编程 11 【正确答案】 A 【试题解析】 VBA的输入输出过程中，使用 Open函数打开文件， Input函数提取文件内容， Write函数向文件写入内容， Pri
13、nt函数将一系列值写入打开的文件： Input#语句的功能是从打开的文件中 提取数据并向变量赋值，所以选项 A正确。 【知识模块】 VBA编程 12 【正确答案】 B 【试题解析】 涉及鼠标操作的事件主要有 MouseDown(鼠标按下 )、MouseMove(鼠标移动 )和 MouseUp(鼠标抬起 )，所以窗体中抬起鼠标按钮，触发的事件是 FormMouseUp，所以选项 B正确。 【知识模块】 VBA编程 13 【正确答案】 B 【试题解析】 在 SQL语句中可以使用 ALTER TABLE语句修改己建立的结构，包括添加新字段，修改字段属性，或删除某些字段，其 基本格式为： ADD字段级
14、完整性约束条件 DROP ALTER； 命令说明： ：指需要修改的表结构的名字。 ADD子句：用于增加新字段和该字段的完整性约束条件。 DROP子句：用于删除指定的字段和完整性约束。 ALTER子句：用于修改原来字段属性，包括字段名称、数据类型等。 本题中 SQL语句 “ALTER TABL E STUD Drop CONSTRAINT PRIMARY_KEY”是删除 STUD表中的主键，所以选项 B正确。 【知识模块】 VBA编程 14 【正确答案】 A 【试题解析】 程序中 “Do While Not rs EOF”中 “rs EOF”表示文件记录是否是该查询结果集的最后一条记录，如果是，
15、则返回真，如果不是，则返回假。 “Set fd=rs Fields(”工龄 ”)”语句为设置 “年龄 ”字段的引用，本题中需要对年龄字段值加 1，所以程序空白处应该填上 “fd=fd+1”，所以选项 A正确。 【知识模块】 VBA编程 15 【正确答案】 B 【试题解析】 OpenReport为打开报表， Open Table为打开表， OpenForm为打开窗体， OpenQuery为打开查询，所以选项 B正确。 【知识模块】 VBA编程 16 【正确答案】 A 【试题解析】 使用 “GoToRecord”操作可以使指定的记录成为打开的表、窗体或查询结果集中的当前记录；使用 “GoToCon
16、tr01”操作，可以把焦点移到打开的窗体、窗体数据表、表数据表、查询数据表中当前记录的特定字段或控件上；使用“FindRecord”操作，可 以查找符合 “FindRecord”参数指定的准则的第一个数据实例；使用 “AppyFilter“操作可以对表、窗体或报表应用筛选、查询或 “SQL WHERE”子句，以便限制或排序表、基础表以及窗体或报表的查询中的记录，所以选项 A正确。 【知识模块】 VBA编程 17 【正确答案】 A 【试题解析】 设置计算型控件的控件来源时，计算表达式的第一个符号必须是“=”，所以选项 A正确。 【知识模块】 VBA编程 18 【正确答案】 A 【试题解析】 Hu
17、ngarian符号使用一组代 表数据类型的码。用小写字母作为变量名的前缀， “opt”代表选项按钮， “lst”代表列表框， “Chk”代表复选框， “cmd”代表命令按钮，所以选项 A正确。 【知识模块】 VBA编程 19 【正确答案】 D 【试题解析】 Asc函数为字符串转换字符 ASCII码函数，该函数返回字符串首字符的 ASCII码值； Str函数为数字转换成字符串函数，该函数将数值表达式的值转换成字符串； Chr函数为字符 ASCII码值转换为字符函数，该函数返回与字符代码相关的字符， String不是类型转换函数， CString是 返回一个由字符表达式的首字符重复组成的指定长度为
18、数值表达式的字符串，所以选项 D正确。 【知识模块】 VBA编程 20 【正确答案】 D 【试题解析】 ByRef是指参数按地址传递，但是在这里面参数是一个表达式，表达式的结果会赋给一个临时变量，然后把临时变量的地址传递给 f，因此 f的计算结果并不会影响 J的值，所以应选择选项 D。 【知识模块】 VBA编程 21 【正确答案】 A 【试题解析】 整数型数据类型标识为 Integer，用 “ ”表示；单精度数据类型标识为 single，用 “!”表示，所以选项 A正确。 【知识模块】 VBA编程 22 【正确答案】 D 【试题解析】 本题考查的是多路分支语句 select Case End
19、case知识点。该题将字符 “， “赋值给变量 a。程序会执行满足 case后条件的那一条指令，然后结束程序。本题变量 a的值与 Case“!“， “?“， “， “， “)“， “； “相匹配，所以执行该语句块中的语句 “Str=“Punctuaton“”。因此应选择选项 D。 【知识模块】 VBA编程 23 【正确答案】 A 【试题解析】 程序执行过程如下 ： 程序初始化 f1=0； f2=1： 当 n=1时； For n=1 t0 5；执行第一次循环，条件为 true； f=f1+f2=0+1=1输出 f的值为 1； f1=f2=1； f2=f=2； 当 n=2时；执行第二次循环，条件为
20、 true： f=f1+f2=1+1=2，输出 f的值为 2；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=s时；执行第五次循环，条件为 true； f=f1+f2=3+5=8，输出 f的值为 8；f1=f2=5； f2=f=8； 当 n=6时；执行第六次循环，条件为 false，结束循环。 综上所述，程序输出结果依次为 1， 2， 3，
21、 5， 8，所以选项 A正确。 【知识模块】 VBA编程 24 【正确答案】 B 【试题解析】 数据库数据访问中常用的域聚合函数有： Nz函数、 DCount函数、DAvg函数和 DSum函数、 DMax函数和 DMin函数及 DLookup函数，所以选项B正确。 【知识模块】 VBA编程 25 【正确答案】 A 【试题解析】 写入文件的过程就是将值添加到相关文件中的过程。文件打开时，Write#和 Print#语句都可以向其写入数据。两者的区别在丁， Write#是将数据传送到指定的文件中，而 print#是创建一个新的打印文件。所以选项 A正确。 【知识模块】 VBA编程 26 【正确答案
22、】 A 【试题解析】 根据题意，空白处 的代码应实现的功能是在 “课程表 ”中查询出“课程编号 ”等于 tNum文本框中数据的 “课程名称 ”，此 DLookup函数有此功能。DLookup函数的格式为： DLookup(表达式，记录集 条件式 )。其中表达式用来指定要查询的字段，即题中的 ”课程名称 ”。记录集用来指定要查询的范围，即题中的 “课程表 ”。条件式用来指定查询条件，即题中的 “课程编号 =“Me!tNum“”，所以选择选项 A。 【知识模块】 VBA编程 27 【正确答案】 B 【试题解析】 在 SQL语言中，可以使用 CREATE TABLE语句建立基本表，本题是将创建基本表
23、 Student的 SQL语句，存放在 strSQL变量中，然后使用DoCmd RunSQL命令，执行该 SQL语句，所以本题是动态创建表对象Student，选项 B正确。 【知识模块】 VBA编程 28 【正确答案】 D 【试题解析】 EOF函数的作用是判断是否到达记录的结尾，在到达结尾前，该函数的返回值都是 False，本题需要对当前库中 “教师表 ”的工龄字段都加 1，使用Do WhileLoop 循环结构，依次取出每条语句，条件语句用于判断记录指针是否到达记录集的结尾，如果没有， rs EOF返回 false， Not rs Eof返回 true，则继续向下移动记录指针，如果记录指针到
24、达记录集的结尾， rs EOF返回 true， Not rs EOF返回 false，结束循环。 【知识模块】 VBA编程 29 【正确答案】 A 【试题解析】 OpenReport为打开报表， OpenTable为打开表， OpenForm为打开窗体， OpenQuery为打开查询，所以选项 A正确。 【知识模块】 VBA编程 30 【正确答案】 A 【试题解析】 程序开始时， f1租 f2的值分别是从文本框 Text0和 Text1中输入的值 15和 25，然后利用 if语句判断 f1和 f2两个数的大小，变量 i中存放住和 f2中较小者的值， flag初始值为 true，程序进入 Do While循环语句，首先判断循环条件 “i1 And flag”，结果为 true，循环体中的 f语句，只有当住和 f2同时能被 i整除， flag才会被赋值为 false，否则将变量 i减 1，继续进行 Do-While循环的条件判断，一旦 f1和 f2同时能被 i整除，变量 flag被赋值为 false，则整个循环结束，将变量 i的值输出到文本框 Text2中，所以只有当变量 i为 5时，才能同时 被f1(15)和 f2(25)整除。 本题程序的功能是求两个数的最大公约数，所以选项 A正确。 【知识模块】 VBA编程
