1、国家二级 ACCESS 机试选择题（VBA 编程）模拟试卷 4 及答案解析(总分：60.00，做题时间：90 分钟)一、选择题(总题数：30，分数：60.00)1.VBA 中一般采用 Hungarian 符号法命名变量，代表报表的字首码是（分数：2.00）A.ChkB.QryC.RptD.Cbo2.在标准模块“模块 1”声明区中定义了变量 x 和变量 y，如下所示，则变量 x 和变量 y 的作用范围分别是 Dim x As Integer Public Y As Integer Sub demoVar() x=3 y=5 DebugPrint x “ y End Sub（分数：2.00）A.模
2、块级变量和过程级变量B.过程级变量和公共变量C.模块级变量和公共变量D.过程级变量和模块范围3.下列 Access 内置函数中，用于去掉字符串前后空格的函数是（分数：2.00）A.LtrimB.RtrimC.SpaceD.Trim4.下列程序的输出结果是 Dimx 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（分数
3、：2.00）A.y=1B.y=10C.y=11D.y=95.下列程序的输出结果是 Private Sub Command3_Click() t=0 m=1 sum=0 =t+m sum=sum+t m=m+1 Loop While m=4 MsgBox “Sum=“ sum End Sub（分数：2.00）A.Sum=6B.Sum=10C.Sum=20D.Sum=356.下列代码实现的功能是：若在窗体中一个名为 tNum 的文本框中输入课程编号，则程序自动将“课程表”中对应的“课程名称”显示在另一个名为 tName 文本框中。 PrivateSub () Me!tName=DLookup(“课
4、程名称“，“课程表“，“课程编号=“Me!TNum“) End Sub 程序中处应填写的是（分数：2.00）A.fNum_AfterUpdateB.tNum_ChangeC.tNum_OpenD.tNum_Load7.子过程 Plus 完成对当前库中“学生表”的年龄字段都加 1 的操作。 Sub Plus() Dim cn As New ADODBConnection Dim rs As New ADODBRecordset Dim fd As ADODB，Fielld Dim strConnect As String Dim strSOL As String Set cn=CurrrntPr
5、ojcotConnection strSQL=“Selct 年龄 from 学生表“ rsOpen strSQLcn，adOpenDyaamic，adLockOptimistic，adCmdText Set fd=rsFields(“年龄“) Do While Not rsEOF fd=fd+1 rs Update Looy rsClose cnClose Set rw=Nothing Set on=Nothing End Sub 程序空白处应该填写的语句是（分数：2.00）A.rsMoveNextB.cnMoveNextC.rsNextD.cnNext8.下列关于自动宏的叙述中，正确的是（分
6、数：2.00）A.打开数据库时不需要执行自动宏，需同时按住 Alt 键B.打开数据库时不需要执行自动宏，需同时按住 Shift 键C.若设置了自动宏，则打开数据库时必须执行自动宏D.打开数据库时只有满足事先设定的条件才执行自动宏9.下列表达式中，与 DamDifff(“m“，#2013-11-25#，Date()等价的表达式是（分数：2.00）A.(Month(date()-Month(#2013-11-25#)B.(MonthName(date()-MonthName(#2013-11-25#)C.(year(date()-yeax(#2013-11-25#)*12-(month(date(
7、)-month(#2013-11-25#)D.(year(date()-year(#2013-11-25#)*12+(month(date()-month(#2013-11-25#)10.以下关于宏的叙述中，错误的是（分数：2.00）A.宏是 Access 的数据库对象之一B.可以将宏对象转换为 VBA 程序C.不能在 VBA 程序中调甩宏D.宏比 VBA 程序更安全11.内置计算函数 Sum 的功能是（分数：2.00）A.计算所有指定字段值的累加和B.计算全部数值型字段的累加和C.计算一条记录中数值型字段魄累加和D.计算一条记录中指定字段的累加和12.打开选择查询或交叉表查询的宏操作命令是（
8、分数：2.00）A.DocmdOpenFormB.DocmdOpenQueryC.OpenFormD.OpenQuery13.若要使窗体上的控件“Command0”不可用，正确的设置是（分数：2.00）A.Command0Enable=FalseB.Command0Visible=FalseC.Command0Enable=TrueD.Command0Visible=True14.当窗体的大小发生变化时，触发的事件是（分数：2.00）A.ResidzeB.ChangeC.UnloadD.AfterUpdate15.在使用 ADO 访问数据源时，从数据源获得的数据以行的形式存放一个对象中，该对象
9、应是（分数：2.00）A.CommandB.RecordsmC.ConnectionD.Parmnmers16.下列关于 VBA 数据库数据访问的内置域聚合函数的叙述中，错误的是（分数：2.00）A.域聚合函数可以直接从一个表中取得符合条件的值赋给变量B.域聚合函数可以直接从一个查询中取得符合条件的值赋给变量C.使用域聚合函数之前要完成数据库连接和打开操作D.使用域聚合函数之后无需进行关闭数据库操作17.在 VBA 中，要引用“学生”窗体中的控件对象，错误的格式是（分数：2.00）A.Forms!学生!控件名称属性名称B.Forms学生控件名称属性名称C.Forms!学生!控件名称!属性名称D
10、.Forms!学生控件名称属性名称18.在窗体中有一个名为“Commandi”的按钮，该模块内还有一个函数过程： Public Function f(x As Integer)As Integer Dim y As Integer x=30 y=3 f=x*y End Function Private Sub Command1_Click() Dim y As Integer Static x As Integer x=10 y=5 y=f(x) DebugPrint x；y End Sub 打开窗体运行后，如果单击按钮，则在立即窗口上显示的内容是（分数：2.00）A.105B.1090C.3
11、05D.309019.下列代码实现的功能是：在窗体中一个文本框“tNum”，运行时若在其中输入课程编号，则会自动在“课程表”中找出对应的“课名”显示在另一个名为“tName”文本框中。 Private Sub() Me!tName=DLookup(“课名“，“课程表“，”课程编号=“Me!tNum“) End Sub 则程序中处应该填写的是（分数：2.00）A.tNum_AfterUpdateB.tNum_ClickC.tName_AfterUpdateD.tName_Click20.以下程序的功能是计算并输出两个整数的最大公约数。 Private Sub a1() Dim x As Inte
12、ger，y As Integer，t As Integer x=lnputBox(“请输入 x 的值“) y=InputBox(“请输入 y 的值“) Do x=y y=t Loop While(t0) DebugPrint End Sub 有如下语句： t=x t=y t=xy t=x Mod y x y t xy 程序中有两个，将程序补充完整的正确语句是（分数：2.00）A.B.C.D.21.打开名为“学生信息”的窗体时，首先发生的事件是（分数：2.00）A.打开(Open)B.加载(Load)C.激活(ActiVate)D.成为当前(Current)22.下列表达式中，与 DateDif
13、f(“m“，#1893-12-26#，Date()等价的表达式是（分数：2.00）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.要在一个窗体的某个按钮的单击事件上添加动作，可以创建的宏是（分数：2.00）
14、A.只能是独立宏B.只能是嵌入宏C.独立宏或数据宏D.独立宏或嵌入宏24.内置计算函数 Avg 的功能是（分数：2.00）A.计算所有指定字段值的平均值B.计算全部数值型字段的平均值C.计算一条记录中数值型字段的平均值D.计算一条记录中指定字段的平均值25.打开指定窗体的宏操作命令是（分数：2.00）A.DocmdOpenFormB.DocmdOpenQueryC.OpenFormD.OpenQuery26.若要使窗体上的标签控件 Lab1 可显示，则在 VBA 中正魂的设置是（分数：2.00）A.Lab1Enable=FalseB.Lab1Visible=FalseC.Lab1Enable=
15、TrueD.Lab1Visible=True27.在 VBA 中要定义一个 100 元素的个整型数组，正确的语句是（分数：2.00）A.Dim New Array(100)As IntegerB.Dim New Array(2 To 101)As IntegerC.Dim New，Array(2 To 101) Dr)Dim New Array(100)28.下列关于 Access 内置函数的分类中，错误的是（分数：2.00）A.表函数B.转换函数C.文本函数D.程序流程函数29.已知过程对应的代码如下： SubProc() n=1 f1=0 f2=1 Do While n=8 f=f1+f2
16、 DebugPrint f f1=f2 f2=f n=n+1 Loop End Sub 过程 Proc 在立即窗口中显示的结果是（分数：2.00）A.斐波那契序列中 2 到 9 对应的序列值B.斐波那契序列中 2 到 8 对应的序列值C.整数 1 到 n(n9)对应的累加和D.整数 1 到 n(n8)对应的累加和30.属于 Access 域聚合函数的是（分数：2.00）A.CountB.DMaxC.CDateD.Max国家二级 ACCESS 机试选择题（VBA 编程）模拟试卷 4 答案解析(总分：60.00，做题时间：90 分钟)一、选择题(总题数：30，分数：60.00)1.VBA 中一般采
17、用 Hungarian 符号法命名变量，代表报表的字首码是（分数：2.00）A.ChkB.QryC.Rpt D.Cbo解析：解析：Hungarian 符号使用组代表数据类型的码。用小写字母作为变量名的前缀，“Chk”代表复选框，“Qry”代表查询，“Rpt”代表报表，“Cbo”代表组合框，所以选项 C 正确。2.在标准模块“模块 1”声明区中定义了变量 x 和变量 y，如下所示，则变量 x 和变量 y 的作用范围分别是 Dim x As Integer Public Y As Integer Sub demoVar() x=3 y=5 DebugPrint x “ y End Sub（分数：2
18、.00）A.模块级变量和过程级变量B.过程级变量和公共变量C.模块级变量和公共变量 D.过程级变量和模块范围解析：解析：VBA 的变量声明会指明变量的作用域和声明周期，Dim 为局部变量，Public 为全局变量，Static 代表静态变量。在模块区定义的区域，通关 Dim 定义的变量时模块级变量，通过 Public 定义的变量是公共变量，所以应选择选项 C。3.下列 Access 内置函数中，用于去掉字符串前后空格的函数是（分数：2.00）A.LtrimB.RtrimC.SpaceD.Trim 解析：解析：LTrim(字符串表达式)：删除字符串的开始空格；RTrim(字符串表达式)：删除字符
19、串的尾部空格；Triml字符串表达式)：删除字符串的开始和尾部空格；space(数值表达式)：返回数值表达式的值指定的空格字符数。本题选项 D 正确。4.下列程序的输出结果是 Dimx 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（分数：2.00）A.y=1B.y=10C.y=11 D.y=9解析：解析：在函数参数
20、传递中，包括按地址传递 ByRef 和按值传递 ByVal 两种方法。其中前者在函数体内改变变量值会影响参数外的变量，后者不会。本题 y 是按地址传递，调用 fun()函数，会将 y 的值改为fun()函数中 y 的值，所以应选择选项 C。5.下列程序的输出结果是 Private Sub Command3_Click() t=0 m=1 sum=0 =t+m sum=sum+t m=m+1 Loop While m=4 MsgBox “Sum=“ sum End Sub（分数：2.00）A.Sum=6B.Sum=10C.Sum=20 D.Sum=35解析：解析：本题考查 DoLoop Whil
21、e 循环的执行过程。DoLoop While 循环结构是先执行后判断，循环语句至少执行一次。While 关键字用于指明条件为真时执行循环体内语句，当条件为假时，结束循环。该题的循环体要执行 4 次，第 4 次结束时 m=5，不满足循环的条件，因此循环终止。根据代码执行的结果，最后 sum=20，所以选择选项 C。6.下列代码实现的功能是：若在窗体中一个名为 tNum 的文本框中输入课程编号，则程序自动将“课程表”中对应的“课程名称”显示在另一个名为 tName 文本框中。 PrivateSub () Me!tName=DLookup(“课程名称“，“课程表“，“课程编号=“Me!TNum“)
22、End Sub 程序中处应填写的是（分数：2.00）A.fNum_AfterUpdate B.tNum_ChangeC.tNum_OpenD.tNum_Load解析：解析：本题考查的是变量标识符的命名规则。标识符的名字以一个或者多个小写字母开头作为前缀；之后接第一个单词的首字母大写或者多个单词的组合，且该单词要指明变量的用途。本题是根据输入 Num然后(After)更新(Update)tName 内容，所以选择选项 A。7.子过程 Plus 完成对当前库中“学生表”的年龄字段都加 1 的操作。 Sub Plus() Dim cn As New ADODBConnection Dim rs As
23、 New ADODBRecordset Dim fd As ADODB，Fielld Dim strConnect As String Dim strSOL As String Set cn=CurrrntProjcotConnection strSQL=“Selct 年龄 from 学生表“ rsOpen strSQLcn，adOpenDyaamic，adLockOptimistic，adCmdText Set fd=rsFields(“年龄“) Do While Not rsEOF fd=fd+1 rs Update Looy rsClose cnClose Set rw=Nothing
24、Set on=Nothing End Sub 程序空白处应该填写的语句是（分数：2.00）A.rsMoveNext B.cnMoveNextC.rsNextD.cnNext解析：解析：本题考查的是如何使用 ADO 数据库技术操作数据库。其中，RecordSet 对象 rs 是用来表示来自基本表或命令执行结果的记录集。rs 更新完一条记录之后，需要使指针往后移动下一个记录上(注：MoveNet，移动到下一个记录的位置)。因此本题应选择选项 A。8.下列关于自动宏的叙述中，正确的是（分数：2.00）A.打开数据库时不需要执行自动宏，需同时按住 Alt 键B.打开数据库时不需要执行自动宏，需同时按住
25、 Shift 键 C.若设置了自动宏，则打开数据库时必须执行自动宏D.打开数据库时只有满足事先设定的条件才执行自动宏解析：解析：取消自动运行宏，打开数据库时按住 Shift 键即可，所以选项 B 正确。9.下列表达式中，与 DamDifff(“m“，#2013-11-25#，Date()等价的表达式是（分数：2.00）A.(Month(date()-Month(#2013-11-25#)B.(MonthName(date()-MonthName(#2013-11-25#)C.(year(date()-yeax(#2013-11-25#)*12-(month(date()-month(#2013
26、-11-25#)D.(year(date()-year(#2013-11-25#)*12+(month(date()-month(#2013-11-25#) 解析：解析：日期时间函数 DateDiff(间隔类型，日期 1，日期 2W1，W21)返回两个日期之间按照间隔类型指定的时间间隔数目。题目中的间隔类型为“m”表示月，函数 Date()获得当前系统日期，表达式的结果是当前系统日期与 2013-11-25 之间相差的月数，即为“(当前年份-2013)*12+(当前月份-12)”，所以选择选项 D。10.以下关于宏的叙述中，错误的是（分数：2.00）A.宏是 Access 的数据库对象之一B.
27、可以将宏对象转换为 VBA 程序C.不能在 VBA 程序中调甩宏 D.宏比 VBA 程序更安全解析：解析：VBA 中调用宏对象，可以使用 DocmdRunMicro“宏名”语句调用宏，所以选项 C 叙述错误。11.内置计算函数 Sum 的功能是（分数：2.00）A.计算所有指定字段值的累加和 B.计算全部数值型字段的累加和C.计算一条记录中数值型字段魄累加和D.计算一条记录中指定字段的累加和解析：解析：SUM 函数的功能是求指定字段值的累加和，所以选项 A 正确。12.打开选择查询或交叉表查询的宏操作命令是（分数：2.00）A.DocmdOpenFormB.DocmdOpenQueryC.Op
28、enFormD.OpenQuery 解析：解析：Docmd 对象是 VBA 中使用的，在宏中打开查询对象，直接使用宏命令“OpenQuery”，所以选项 D 正确。13.若要使窗体上的控件“Command0”不可用，正确的设置是（分数：2.00）A.Command0Enable=False B.Command0Visible=FalseC.Command0Enable=TrueD.Command0Visible=True解析：解析：Enable 属性为“可用性”，值设置为“true”表示可用，值设置为“false”表示可见：visible 属性为“可见性”，值设置为“true”表示可见，值设置
29、为“false”表示不可见，所以选项 A正确。14.当窗体的大小发生变化时，触发的事件是（分数：2.00）A.Residze B.ChangeC.UnloadD.AfterUpdate解析：解析：Resize 事件是在打开窗体后，当窗体的大小发生变化时触发的事件。Change 事件是当文本框或其它控件中的文本或数据发生变化时触发的事件。Unload 事件是加载窗体时激发的事件。AfterUpdate 文本框内容更新后激发的事件，所以选择选项 A。15.在使用 ADO 访问数据源时，从数据源获得的数据以行的形式存放一个对象中，该对象应是（分数：2.00）A.CommandB.Recordsm C
30、.ConnectionD.Parmnmers解析：解析：ADO(ActiveX Data Objects)提供了编程语言和统一数据访问方式 OLEDB 的一个中间层，是一个用于存取数据源的 COM 组件。ADO 包含一些顶层的对象：Connection 代表数据库的连接；Recordset 结果集，表示数据库中记录的一个集合：Command 对象主要作用是在 VBA 中用 SQL 语句访问、查询数据库中的数据，可以完成 Recordset 对象不能完成的操作，如创建表、修改表结构、删除表、将查询结果保存为新表等；Error 依赖于 Connection 对象的使用，代表访问数据库的过程中产生的
31、错误；Field 依赖于 Recordset 对象的使用，代表记录集中的字段数据信息。Parameters 依赖于 Command对象的使用，代表 SQL 语句中传递的参数。16.下列关于 VBA 数据库数据访问的内置域聚合函数的叙述中，错误的是（分数：2.00）A.域聚合函数可以直接从一个表中取得符合条件的值赋给变量B.域聚合函数可以直接从一个查询中取得符合条件的值赋给变量C.使用域聚合函数之前要完成数据库连接和打开操作 D.使用域聚合函数之后无需进行关闭数据库操作解析：解析：域聚合函数和 SOL 聚合函数，两者提供相似的功能，但用于不同的场合。SQL 聚合函数可以在 SQL 语句中使用，但
32、不能直接从 VisualBasic 中调用。与之不同的是，域聚合函数不仅可以直接从visualBasic 代码中调用，也可以在 SQL 语句中使用，不过 SQL 聚合函数通常更为有效。由于域聚合函数可以直接从 visuaIBasic 代码中调用，因此使用之前不必先进行数据库连接和打开操作，所以选择选项C。17.在 VBA 中，要引用“学生”窗体中的控件对象，错误的格式是（分数：2.00）A.Forms!学生!控件名称属性名称B.Forms学生控件名称属性名称C.Forms!学生!控件名称!属性名称 D.Forms!学生控件名称属性名称解析：解析：VBA 中引用 Access 窗体中的控件对象的
33、格式为：Forms!窗体名称!控件名属性名。注意：引用控件属性时，只能使用“”不能使用“!”，所以选项 C 错误。18.在窗体中有一个名为“Commandi”的按钮，该模块内还有一个函数过程： Public Function f(x As Integer)As Integer Dim y As Integer x=30 y=3 f=x*y End Function Private Sub Command1_Click() Dim y As Integer Static x As Integer x=10 y=5 y=f(x) DebugPrint x；y End Sub 打开窗体运行后，如果单
34、击按钮，则在立即窗口上显示的内容是（分数：2.00）A.105B.1090C.305D.3090 解析：解析：本题主要考查局部变量的使用和函数调用过程中的参数传递。参数传递的方式有传值和传址两种形式，其中默认的方式是传址。本题中 Click 事件和函数 f 都有变量 y，但都是各自的局部变量，只是同名而已。同样 Click 事件和函数 f 中的 x 也是局部变量(形式参数也属于局部变量)，但此处的参数传递是传址，因此函数 f 对变量 x 的修改会带回到 Click 事件。在 Click 事件中，调用函数 f 的同时将参数x 以传址的方式传给了函数 f。在函数 f 中x 被重新赋值为 30，并与
35、函数 f 的局部变量 y 相乘得结果90，并通过函数 f 传回了 Click 事件。在 Click 事件中该结果被赋值给该事件的局部变量 y，所以调用的结果是 Click 事件中的局部变量 x 和 y 分别变成了 30 和 90，所以正确答案为选项 D。19.下列代码实现的功能是：在窗体中一个文本框“tNum”，运行时若在其中输入课程编号，则会自动在“课程表”中找出对应的“课名”显示在另一个名为“tName”文本框中。 Private Sub() Me!tName=DLookup(“课名“，“课程表“，”课程编号=“Me!tNum“) End Sub 则程序中处应该填写的是（分数：2.00）A
36、.tNum_AfterUpdate B.tNum_ClickC.tName_AfterUpdateD.tName_Click解析：解析：本题考查的是变量标识符的命名规则。标识符的名字以一个或者多个小写字母开头作为前缀；之后接第一个单词的首字母大写或者多个单词的组合，且该单词要指明变量的用途。本题是根据输入 Num然后(After)更新(Update)tName 内容，所以选择选项 A。20.以下程序的功能是计算并输出两个整数的最大公约数。 Private Sub a1() Dim x As Integer，y As Integer，t As Integer x=lnputBox(“请输入 x
37、的值“) y=InputBox(“请输入 y 的值“) Do x=y y=t Loop While(t0) DebugPrint End Sub 有如下语句： t=x t=y t=xy t=x Mod y x y t xy 程序中有两个，将程序补充完整的正确语句是（分数：2.00）A.B.C.D. 解析：解析：求两个整数 x 和 y 的最大公约数的算法是：令 t 等于 x 除以 y 的余数，若 t=0，则 y 为 x 和y 的最大公约数。若 t 不为 0，则可以肯定最大公约数必为小于 y 的数，则可令 x=y，y=t，再返回开始状态，执行 t=x mod y。直到 t=0 时，x 为最大公约数
38、。因此程序中 Do 和 Loop 之间为循环体，第一个空应填 t=x mod y，第二个空为输出语句，应该输出 x，所以选择选项 D。21.打开名为“学生信息”的窗体时，首先发生的事件是（分数：2.00）A.打开(Open) B.加载(Load)C.激活(ActiVate)D.成为当前(Current)解析：解析：打开窗体时，发生的事件依次为：打开(Open)加载(Load)调整大小(Resize)激活(Activate)成为当前(Current)，所以选项 A 正确。22.下列表达式中，与 DateDiff(“m“，#1893-12-26#，Date()等价的表达式是（分数：2.00）A.(
39、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#) 解析：解析：日期时间函数 DateDiff(间隔类型，日期 1，日期 2，W1，W2)返回两个日期之间按照间隔类型指定的时间间隔数目。题目中的间隔类型为“m”表示月，函
40、数 Date()获得当前系统日期，表达式的结果是当前系统日期与 1893-12-26 之间相差的月数，即为“(当前年份-1893)*12+(当前月份-12)”。23.要在一个窗体的某个按钮的单击事件上添加动作，可以创建的宏是（分数：2.00）A.只能是独立宏B.只能是嵌入宏C.独立宏或数据宏D.独立宏或嵌入宏 解析：解析：独立宏是独立的对象，它独立于窗体、报表等对象之外。在导航窗格中可见。因此可以创建独立宏响应按钮的单击事件，不受其他对象约束。嵌入宏是嵌入在窗体、报表或控件对象的事件中。是他们所嵌入的对象或控件的一部分。在导航窗格中不可见，因此也可以创建嵌入宏，直接嵌入按钮的单击事件中，所以选
41、择选项 D。24.内置计算函数 Avg 的功能是（分数：2.00）A.计算所有指定字段值的平均值 B.计算全部数值型字段的平均值C.计算一条记录中数值型字段的平均值D.计算一条记录中指定字段的平均值解析：解析：Avg 函数的功能是求指定字段值的平均值，所以选项 A 正确。25.打开指定窗体的宏操作命令是（分数：2.00）A.DocmdOpenFormB.DocmdOpenQueryC.OpenForm D.OpenQuery解析：解析：Docmd 对象是 VBA 中使用的，在宏中打开窗体对象，直接使用宏命令“OpenForm”，所以选项 C 正确。26.若要使窗体上的标签控件 Lab1 可显示
42、，则在 VBA 中正魂的设置是（分数：2.00）A.Lab1Enable=FalseB.Lab1Visible=FalseC.Lab1Enable=TrueD.Lab1Visible=True 解析：解析：窗体上的标签控件用于显示说明性的文本，没有数据源，不显示字段或表达式的值，显示的内容是固定不变韵。标签控件的属性 Visible 的功能是设置标签内容的可见性。如 Visible 属性设为True，则标签控件上的文本可以显示；若设为 False，则标签控件的文本不可显示，所以选择 D 选项。27.在 VBA 中要定义一个 100 元素的个整型数组，正确的语句是（分数：2.00）A.Dim N
43、ew Array(100)As IntegerB.Dim New Array(2 To 101)As Integer C.Dim New，Array(2 To 101) Dr)Dim New Array(100)解析：解析：VBA 中定义数组格式为：Dim 数组名 (下标下限 to) 下标上限) As 数组类型 缺省情况下，下标下限为 0，数组元素从“数组名(0)”至“数组名(下标上限)”；如果使用 to 选项，则可以安排非 0 开始的下标下限。本题中 c、D 选项没有指定数据类型，默认为变体型，不符合题意；A 选项中数组下标默认从 0 开始，0 到 100 共 101 个元素，不符合题意：所
44、以只有选项 B 正确。28.下列关于 Access 内置函数的分类中，错误的是（分数：2.00）A.表函数 B.转换函数C.文本函数D.程序流程函数解析：解析：在 Access 中常用的内置函数有财务函数、日期函数、算术函数、文本函数、转换函数、检查函数，没有表函数。所以选择选项 A。29.已知过程对应的代码如下： SubProc() n=1 f1=0 f2=1 Do While n=8 f=f1+f2 DebugPrint f f1=f2 f2=f n=n+1 Loop End Sub 过程 Proc 在立即窗口中显示的结果是（分数：2.00）A.斐波那契序列中 2 到 9 对应的序列值 B
45、.斐波那契序列中 2 到 8 对应的序列值C.整数 1 到 n(n9)对应的累加和D.整数 1 到 n(n8)对应的累加和解析：解析：程序执行过程如下： 程序初始化 f1=0；f2=1； 当 n=1 时；For n=1to 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：f1=f2=1；f2=f=2； 当 n=3 时；执行第三次循环，条件为true；f=f1+f2=1+2=3 输出 f 的值为 3；f1=f2=2；f2=f
46、=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 时；执行第七次循环，条件为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 正确。30.属于 Access 域聚合函数的是（分数：2.00）A.CountB.DMax C.CDateD.Max解析：解析：Access 内置函数中域聚合函数包括 DAvg、DCount 漩玳、DFirst、DLookup、DMax、Dmin等，所以选择选项 B。
