1、二级 ACCESS-92 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：37，分数：100.00)1.Access 中将一个或多个操作构成集合，每个操作能实现特定的功能，则称该操作集合为_。（分数：2.00）A.窗体B.报表C.查询D宏2.以下关于宏的叙述中，错误的是_。（分数：2.00）A.宏是 Access 的数据库对象之一B.可以将宏对象转换为 VBA 程序C.不能在 VBA 程序中调用宏D.宏比 VBA 程序更安全3.要在一个窗体的某个按钮的单击事件上添加动作，可以创建的宏是_。（分数：2.00）A.只能是独立宏B.只能是嵌入宏C.独立宏或数据宏D.独立宏或
2、嵌入宏4.打开选择查询或交叉表查询的宏操作命令是_。（分数：2.00）A.OpenReportB.OpenTableC.OpenFormD.OpenQuery5.打开一个报表应使用的宏操作命令是_。（分数：2.00）A.OpenReportB.OpenTableC.OpenFormD.OpenQuery6.运行 Visual Basic 的函数过程，应使用的宏命令是_。（分数：2.00）A.RunCommandB.RunAppC.RunCodeD.RunVBA7.下列关于自动宏的叙述中，正确的是_。（分数：2.00）A.打开数据库时不需要执行自动宏，需同时按住 Alt 键B.打开数据库时不需要
3、执行自动宏，需同时按住 Shift 键C.若设置了自动宏，则打开数据库时必须执行自动宏D.打开数据库时只有满足事先设定的条件才执行自动宏8.有宏组 M1，依次包含 Macro1 和 Macro2 两个子宏，以下叙述中错误的是_。（分数：2.00）A.创建宏组的目的是方便对宏的管理B.可以用 RunMacro 宏操作调用子宏C.调用 Ml 中 Macro1 的正确形式是 M1.Macro1D.如果调用 M1 则顺序执行 Macro1 和 Macro2 两个子宏9.在宏的参数中，要引用窗体 F1 上的 Text1 文本框的值，应该使用的表达式是_。（分数：2.00）A.Forms!F1!Text1
4、B.Text1C.F1.Text1D.Forms_F1_Text110.打开窗体时，触发事件的顺序是_。（分数：2.00）A.打开，加载，调整大小，激活，成为当前B.加载，打开，调整大小，激活，成为当前C.打开，加载，激活，调整大小，成为当前D.加载，打开，成为当前，调整大小，激活11.关闭窗体时所触发的事件的顺序是_。（分数：2.00）A.卸载，停用，关闭B.关闭，停用，卸载C.停用，关闭，卸载D.卸载，关闭，停用12.某学生成绩管理系统的“主窗体”如下图左侧所示，单击“退出系统”按钮会弹出下图右侧“请确认”提示框；如果继续单击“是”按钮，才会关闭主窗体退出系统，如果单击“否”按钮，则会返回
5、“主窗体”继续运行系统。为了达到这样的运行效果，在设计主窗体时为“退出系统”按钮的“单击”事件设置了一个“退出系统”宏。正确的宏设计是_。 A B C D （分数：3.00）A.B.C.D.13.下列选项中，与 VBA 中语句 Dim NewVar%，sum!等价的是_。（分数：3.00）A.Dim NewVar As Integer, sum As SingleB.Dim NewVar As Integer, sum As DoubleC.Dim NewVar As Single, sum As SingleD.Dim NewVar As Sibgle, sum As Integer14.在
6、标准模块“模块 1”声明区中定义了变量 x 和变量 y，如下所示，则变量 x 和变量 y 的作用范围分别是_。 Dim x As Integer Public y As Integer Sub demoVar() x=3 y=5 Debug. Print x Next j End Sub 有如下语句： a(j)=Int(Rnd*100) a(p)=Int(Rnd*100) p=Int(Rnd*100) x(p)=x(p)+1 x(j)=x(j)+i p=p+1 程序中有两条下划线，将程序补充完整的正确语句是_。（分数：3.00）A.B.C.D.24.以下程序的功能是计算并输出两个整数的最大公约
7、数。 Private Sub a1() Dim x As Integer, y As Integer, t As Integer x=InputBox(“请输入 x 的值“) y=InputBox(“请输入 y 的值“) Do _ x=y y=t Loop While(t0) Debug.Print _ End Sub 有如下语句： t=x t=y t=x/y t=x Mod y x y t x/y 程序中有两条下划线，将程序补充完整的正确语句是_。（分数：3.00）A.B.C.D.25.下列程序段运行结束后，变量 C 的值是_。 a=24 b=328 select case b/10 cas
8、e 0 c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a* 1000+b end select（分数：3.00）A.537B.2427C.24328D.24032826.执行下列程序段后，变量 a 和 b 的值分别是_。 a=100: b=50 If ab Then a=a-b Else b=b+a End If（分数：3.00）A.50 和 50B.100 和 50C.100 和 150D.150 和 10027.若有以下两个过程： Sub S1(ByVal x As Integer, ByVal y As Integer) im t As I
9、nteger t=x x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t=x: x=y: y=t End Sub 则下列说法中，正确的是_。（分数：3.00）A.使用过程 S1 可以交换调用函数中两个变量的值，S2 不能实现B.使用过程 S2 可以交换调用函数中两个变量的值，S1 不能实现C.过程 S1 和 S2 都可以实现交换调用函数中两个变量的值D.过程 S1 和 S2 都不能实现交换调用函数中两个变量的值28.在 VBA 中要打开名为“学生信息录入”的窗体，应使用的语句是_。（分数：3.00）A.Do
10、Cmd.OpenForm”学生信息录入”B.OpenForm”学生信息录入”C.DoCmd.OpenWindow”学生信息录入”D.OpenWindow”学生信息录入”29.InputBox 函数的返回值类型是_。（分数：3.00）A.数值B.字符串C.变体D.视输入的数据而定30.MsgBox 函数使用的正确语法是_。（分数：3.00）A.MsgBox(提示信息,标题,按钮类型)B.MsgBox(标题,按钮类型,提示信息)C.MsgBox(标题,提示信息,按钮类型)D.MsgBox(提示信息,按钮类型,标题31.为使窗体每隔 0.5 秒钟激发一次计时器事件(timer 事件)，则应将其 In
11、terval 属性值设置为_。（分数：3.00）A.5000B.500C.5D.0.532.下列程序的功能是返回当前窗体的记录集： Sub GetRecNum() Dim rs As Object Set rs=_ MsgBox rs.RecordCount End Sub 为保证程序输出记录集(窗体记录源)的记录数，下划线处应填写的语句是_。（分数：3.00）A.Me.RecordsetB.Me.RecordLocksC.Me.RecordSourceD.Me.RecordSelectors33.采用 ADO 完成对“教学管理.accdb”文件中“学生表”的学生年龄都加 1 的操作，程序中下
12、划线处应填写的是_。 Sub SetAgePlus() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim fd As ADODB.Field Dim strConnect As String Dim strSQL As String Set cn=CurrentProject.Connection strSQL=“Select 年龄 from 学生表“ rs.Open strSQL, cn, adopenDynamic, adLockOptimistic, adCmdText Set fd=rs.Fields(“年
13、龄“) Do While Not rs. EOF fd=fd+1 _ rs.MoveNext Loop rs.Close cn.Close Set rs=Nothing Set cn=Nothing End Sub（分数：3.00）A.rs.EditB.rs.UpdateC.EditD.Update34.在“用户表”中有 4 个字段：用户名(文本型，主关键字)，密码(文本型)，登录次数(数字型)，最近登录时间(日期/时间型)。在“登录界面”的窗体中有两个名为 tUser 和 tPassword 的文本框，一个登录按钮 Command0。进入登录界面后，用户输入用户名和密码，单击登录按钮后，程序
14、查找“用户表”。如果输入的用户名和密码全部正确，则登录次数加 1，显示上次的登录时间，并记录本次登录的当前日期和时间；否则，显示出错提示信息。为完成上述功能，程序中下划线处应填入的语句为_。 Private Sub Command0_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim fd1 As ADODB.Fieid Dim fd2 As ADODB.Fieid Dim StrSQL As String Set cn=currentProject.Connection strSQL=“Select
15、 登录次数, 最近登录时间 From 用户表 Where 用户名=“ Next j End Sub 有如下语句： a(j)=Int(Rnd*100) a(p)=Int(Rnd*100) p=Int(Rnd*100) x(p)=x(p)+1 x(j)=x(j)+i p=p+1 程序中有两条下划线，将程序补充完整的正确语句是_。（分数：3.00）A. B.C.D.解析：24.以下程序的功能是计算并输出两个整数的最大公约数。 Private Sub a1() Dim x As Integer, y As Integer, t As Integer x=InputBox(“请输入 x 的值“) y=I
16、nputBox(“请输入 y 的值“) Do _ x=y y=t Loop While(t0) Debug.Print _ End Sub 有如下语句： t=x t=y t=x/y t=x Mod y x y t x/y 程序中有两条下划线，将程序补充完整的正确语句是_。（分数：3.00）A.B.C.D. 解析：25.下列程序段运行结束后，变量 C 的值是_。 a=24 b=328 select case b/10 case 0 c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a* 1000+b end select（分数：3.00）A.537B.
17、2427C.24328 D.240328解析：26.执行下列程序段后，变量 a 和 b 的值分别是_。 a=100: b=50 If ab Then a=a-b Else b=b+a End If（分数：3.00）A.50 和 50 B.100 和 50C.100 和 150D.150 和 100解析：27.若有以下两个过程： Sub S1(ByVal x As Integer, ByVal y As Integer) im t As Integer t=x x=y y=t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer
18、t=x: x=y: y=t End Sub 则下列说法中，正确的是_。（分数：3.00）A.使用过程 S1 可以交换调用函数中两个变量的值，S2 不能实现B.使用过程 S2 可以交换调用函数中两个变量的值，S1 不能实现 C.过程 S1 和 S2 都可以实现交换调用函数中两个变量的值D.过程 S1 和 S2 都不能实现交换调用函数中两个变量的值解析：28.在 VBA 中要打开名为“学生信息录入”的窗体，应使用的语句是_。（分数：3.00）A.DoCmd.OpenForm”学生信息录入” B.OpenForm”学生信息录入”C.DoCmd.OpenWindow”学生信息录入”D.OpenWind
19、ow”学生信息录入”解析：29.InputBox 函数的返回值类型是_。（分数：3.00）A.数值B.字符串 C.变体D.视输入的数据而定解析：30.MsgBox 函数使用的正确语法是_。（分数：3.00）A.MsgBox(提示信息,标题,按钮类型)B.MsgBox(标题,按钮类型,提示信息)C.MsgBox(标题,提示信息,按钮类型)D.MsgBox(提示信息,按钮类型,标题 解析：31.为使窗体每隔 0.5 秒钟激发一次计时器事件(timer 事件)，则应将其 Interval 属性值设置为_。（分数：3.00）A.5000B.500 C.5D.0.5解析：32.下列程序的功能是返回当前窗
20、体的记录集： Sub GetRecNum() Dim rs As Object Set rs=_ MsgBox rs.RecordCount End Sub 为保证程序输出记录集(窗体记录源)的记录数，下划线处应填写的语句是_。（分数：3.00）A.Me.RecordsetB.Me.RecordLocksC.Me.RecordSourceD.Me.RecordSelectors 解析：33.采用 ADO 完成对“教学管理.accdb”文件中“学生表”的学生年龄都加 1 的操作，程序中下划线处应填写的是_。 Sub SetAgePlus() Dim cn As New ADODB.Connect
21、ion Dim rs As New ADODB.Recordset Dim fd As ADODB.Field Dim strConnect As String Dim strSQL As String Set cn=CurrentProject.Connection strSQL=“Select 年龄 from 学生表“ rs.Open strSQL, cn, adopenDynamic, adLockOptimistic, adCmdText Set fd=rs.Fields(“年龄“) Do While Not rs. EOF fd=fd+1 _ rs.MoveNext Loop rs.
22、Close cn.Close Set rs=Nothing Set cn=Nothing End Sub（分数：3.00）A.rs.EditB.rs.Update C.EditD.Update解析：34.在“用户表”中有 4 个字段：用户名(文本型，主关键字)，密码(文本型)，登录次数(数字型)，最近登录时间(日期/时间型)。在“登录界面”的窗体中有两个名为 tUser 和 tPassword 的文本框，一个登录按钮 Command0。进入登录界面后，用户输入用户名和密码，单击登录按钮后，程序查找“用户表”。如果输入的用户名和密码全部正确，则登录次数加 1，显示上次的登录时间，并记录本次登录的
23、当前日期和时间；否则，显示出错提示信息。为完成上述功能，程序中下划线处应填入的语句为_。 Private Sub Command0_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim fd1 As ADODB.Fieid Dim fd2 As ADODB.Fieid Dim StrSQL As String Set cn=currentProject.Connection strSQL=“Select 登录次数, 最近登录时间 From 用户表 Where 用户名=“&Me! tUser & “And
24、 密码=“&Me! tPassword &“ rs.Open strSQL, cn, adopenDynamic, adLockoptimistic, adCmdText Set fd1=ms.Fields(“登录次数“) set fd2=rs.Fields(“最近登录时间“) If _ Then fd1=fd1+1 MsgBox“用户已经登录:“&fdl&“次“&Chr(13)&Chr(13)&“上次登录时间:“&fd2 fd2=Now() rs.Update Else MsgBox“用户名或密码错误。“ End If rs.Close cn.Close Set rs=Nothing Set
25、 cn=Nothing End Sub（分数：3.00）A.Not rs.EOF B.rs.EOFC.Not EOFD.EOF解析：35.数据库中有“Emp”，包括“Eno”“Ename”“Eage”“Esex”“Edate”“Eparty”等字段。下面程序段的功能是：在窗体文本框“tValue”内输入年龄条件，单击“删除”按钮完成对该年龄职工记录信息的删除操作。 Private Sub btnDelete Click() “单击“删除“按钮 Dim strSQL As String “定义变量 strSQL=“delete from Emp“ “赋值 SQL 基本操作字符串 “判断窗体年龄条
26、件值无效(空值或非数值)处理 If IsNull(Me!tValue)=True Or IsNumeric(Me! tValue)=False Then MsqBox “年龄值为空或非有效数值!“, vbCritical, “Error“ “窗体输入焦点移回年龄输入的文本框“tValue“控件内 Me!tValue.SetFocus E1se “构造条件删除查询表达式 strSQL=strSQL&“where Eage=“&Me! tValue “消息框提示“确认删除?(Yes/No)“, 选择“Yes“实施删除操作 If MsgBox(“确认删除?(Yes/No)“, vbQuestion+
27、vbYesNo, “确认“)=vbYes Then “执行删除查询 DoCmd. _ strSQL MsgBox “completed!“, vbInformation, “Msg“ End If End If End Sub 按照功能要求，下划线处应填写的是_。（分数：3.00）A.ExecuteB.RunSQL C.RunD.SQL解析：36.下列代码实现的功能是：窗体中一个名为 tNum 的文本框，运行时在其中输入课程编号，程序在“课程表”中查询，找到对应的“课程名称”显示在另一个名为 tName 文本框中。 Private Sub tNum_AfterUpdate() Me! tNam
28、e=_ End Sub 要使程序可以正确运行，_处应该填写的是_。（分数：3.00）A.DLookup(“课程名称“, “课程表“, “课程编号=“&Me! tNum&“) B.DLookup(“课程表“, “课程名称“, “课程编号=“&Me! tNum&“)C.DLookup(“课程表“, “课程编号=“&Me! tNum&“, “课程名称“)D.DLookup(“课程名称“, “课程编号=“&Me! tNum&“, “课程表“)解析：37.BA 中不能实现错误处理的语句结构是_。（分数：3.00）A.On Error Then 标号 B.On Error Goto 标号C.On Error Resume NextD.On Error Goto 0解析：
