二级ACCESS分类模拟题176

1、二级 ACCESS分类模拟题 176选择题1、VBA中一般采用 Hungarian 符号法命名变量，代表命令按钮的字首码是 。A cmdB txtC ChkD sub2、VBA中一般采用 Hungarian 符号法命名变量，代表子窗体的字首码是 。A subB RptC FmtD txt3、a 和b中有且只有一个为 0 ，其正确的表达式是 。A a=0 or b=0B a=0 Xor b=0C a=0 And b=0D a*b=0 And a+b 04、VBA表达式a=19.5 Mod 2*2 的运算结果是 。A 3.5B 1C 3D 05、下列表达式中，与 DateDiff(m, #1893

2、-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#)6、随机产生 10 ，50 之间整数的正确表达式是 。A Round(Rnd*51)B Int(Rnd*40+10)C

3、 Round(Rnd*50)D 10+Int(Rnd*41)7、VBA表达式 Left(how are you,3)的值是 。A howB areC youD ho8、VBA中去除字符串前面空格的函数是 。A LTrimB RTrimC TrimD Ucase9、VBA中求字符串长度的函数是 A Len()B Length()C StrLen()D StrLength()10 、在“职工”表中有姓名、性别和生日三个字段，要查询女职工中年龄最小的记录，并显示最小的 年龄，正确的 SQL命令是 。A SELECT Min(Year(Date()-Year(生日) AS 年龄 FROM 职工 WHE

4、RE 性别= 女B SELECT Min(Year(Date()-Year(生日) AS 年龄 FROM 职工 WHERE 性别=女;C SELECT 年龄 FROM 职工 WHERE Min(Year(Date()-Year(生日) AND 性别=女;D SELECT 年龄 FROM 职工 WHERE Min(Year(Date()-Year(生日 ) AND 性别 =女;11 、能够检索子字符串的函数是 A InStr()B Find()C LookUp()D Seek()12 、“职工”表中有三个字段：姓名、性别和生日。要查询男职工中年龄最小的记录，并显示该最小 年龄，正确的 SQL命令

5、是 。A SELECT Min(Year(Date()-Year(生日) AS 年龄 FROM 职工 WHERE 性别=男;B SELECT Min(Year(Date()-Year(生日) AS 年龄 FROM 职工 WHERE 性别= 男生日) AND 性别=男; 生日) AND 性别=C SELECT 年龄 FROM 职工 WHERE Min(Year(Date()-Year( D SELECT 年龄 FROM 职工 WHERE Min(Year(Date()-Year(13 、下列选项中，不是 Access 内置函数的是 A Choose()B IIf()C Switch()D If(

6、)14 、VBA中如果一行中要写多条语句，则语句之间应使用的分隔符是 A 分号B 逗号C 冒号D 空格15 、以下程序的功能是求 “x3- 5”表达式的值，其中x的值由文本框 Text0 输入，运算的结果由文本 框 Text3 输出。Private Sub Command0_Click()Dim x As IntegerDim y As LongMe.Text0=xy=x3-5Me.Text3=yEnd Sub上述程序有错误，错误的语句是 A Dim x As Integer B Me.Text0=x C Me.Text3=yD Dim y As Long16 、执行下列程序段后，变量 S的值

7、是 Dim S As Integer, n As Integer S=0:n=1Do While n 5x=x*y y=y+1LoopA 2B 5C 10D 2018 、下列循环结构中，循环体被执行的次数是 。Dim i As Integer, t As IntegerFor i=9 to 0t=t+1Next iA 0 次B 1 次C 4 次D 5 次19、在 VBA中，要打开一个文本文件，应使用的语句是 。A OpenB DoCmd.OpenC OpenFileD DoCmd.OpenFile20 、若有语句： str1=inputbox（输入, 练习） ；从键盘上输入字符串 “示例 ”后

8、， str1 的值是 。A 输入 B C 练习 D 示例 21 、ADO对象模型中有 5个主要对象，它们是 Connection 、Command、RecordSet 、Field 和A DatabaseB WorkspaceC ErrorD DBEngine22 、下列程序的功能是返回当前窗体的记录集：Sub GetRecNum()Dim rs As ObjectSet rs=MsgBox rs.RecordCountEnd Sub 为保证程序输出记录集 ( 窗体记录源 ) 的记录数， 处应填入的语句是 。A Me.RecordsetB Me.RecordLocksC Me.RecordSo

9、urceD Me.RecordSelectors23 、ADO的含义是 。A 开放数据库互联应用编程窗口B 数据库访问对象C 动态链接库D ActiveX 数据对象24 、在使用ADO访问数据源时，从数据源获得的数据以行的形式存放一个对象中， 该对象应是 A Command B RecordsetC ConnectionD Parameters25 、子过程 Plus 完成对当前库中 “教师表”的年龄字段都加 1的操作。Sub Plus()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim fd AS ADODB.Fie

10、ldDim strConnect As StringDim strSQL As StringSet cn=CurrentProject.ConnectionstrSQL=Select 年龄 from 教师表 rs.Open strSQL,cn,adOpenDynamic,adLoekOptimistic,adCmdTextSet fd=rs.Fields(年龄 )Do While Not rs.EOF fd=fd+1 rs.UpdateLoop rs.Closecn.CloseSet rs=NothingSet cn=NothingEnd Sub程序中 处应该填写的语句是 。A rs.Move

11、NextB rs.MovePreviousC rs.MoveFirstD rs.MoveLast26 、子过程 Plus 完成对当前库中 “教师表”的工龄字段都加 1的操作 Sub Plus()Dim WS As DAO.WorkspaceDim db As DAO.DatabaseDim rs AS DAO.RecordsetDim fd As DA0.FieldSet db=CurrentDb()Set rs=db.OpenRecordset( 教师表 )Set fd=rs.Fields(工龄 )Do While rs.Edit fd=fd+1 rs.Update rs.MoveNext

12、Loop rs.Close db.Close Set rs=Nothing Set db=Nothing End Sub 程序中 处应该填写的语句是 。A Not rs.EOFB rs.EOFC Not db.EOFD db.EOF27 、子过程 Plus 完成对当前库中 “教师表”的工龄字段都加 1的操作 Sub Plus()Dim ws As DAO.WorkspaceDim db As DAO.DatabaseDim rs As DAO.ReeordsetDim fd As DAO.FieldSet db=CurrentDb()Set rs=db.OpenRecordset( 教师表 )

13、Set fd=rs.Fields(工龄 )Do While Not rs.EOF rs.Edit fd=fd+1rs.MoveNextLooprs.Closedb.CloseSet rs=NothingSet db=NothingEnd Sub程序中 处应该填写的语句是 A rs.UpdateB ws.UpdateC fd.UpdateD db.Update28 、已知在“用户表”中包含4个字段：用户名 （文本，主关键字 ），密码（ 文本） ，登录次数 （ 数字）， 最近登录时间 （ 日期/ 时间 ） 。在“登录界面 ”的窗体中有两个名为 tUser 和tPassword 的文本框，一 个登录

14、按钮 Command0。进入登录界而后， 用户输入用户名和密码， 单击“登录”按钮后，程序查找 “用 户表 ”。如果用户名和密码全部正确，则登录次数加 1，显示上次的登录时间，并记录本次登录的当 前日期和时间；否则，显示出错提示信息。 为完成上述功能，程序中 处应填写的语句是 Private Sub Command0_Click（）Dim cn As New ADODB.ConnectionDim 1.S As New ADODB.RecordsetDim fd1 As ADODB.FieldDim fd2 As ADODB.FieldDim strSQL As StringSet cn=Cu

15、rrentProjeet.ConnectionstrSQL=Select登录次数 , 最近登录时间 From 用户表 Where 用户名 =&Me!tUser&And 密码 =&Me! tPassword&rs.Open strSQL,cn,adOpenDynamie,adLockOptimistic,adCmdTextSet fd1=rs.Fields（登录次数 ）Set fd2=rs.Fields（最近登录时间 ）If Not rs.EOFThenfd1=fd1+1MsgBox 用户已经登录 :&fd1& 次 &Chr（13）&Chr（13）& 上次登录时间 :&fd2fd2=rs.Upd

16、ateElseMsgBox 用户名或密码错误。 End Ifrs.Closecn.CloseSet rs=NothingSet cn=NothingEnd SubA Now（）B Date（）C Time（）D Day（）29 、下列代码实现的功能是：窗体中一个名为 tNum 的文本框，运行时在其中输入课程编号，程序在 “课程表”中查询，找到对应的 “课程名称 ”显示在另一个名为 tName文本框中。Private Sub tNum_AfterUpdate（）Me! tName=End Sub 要使程序可以正确运行， 处应该填写的是 。A DLookUp（ 课程名称 , 课程表 , 课程编号

17、=&Me! tNum&）B DLookUp（ 课程表 , 课程名称 , 课程编号 =&Me! tNum&）C DLookUp（ 课程表, 课程编号 =&Me! tNum&, 课程名称 ）课程表 )D DLookUp( 课程名称 , 课程编号 =&Me! tNum&,30 、要从记录集中得到符合条件的特定字段的值，应使用的内置函数是 。A DlookUp()B DCount()C DFirst()D DLast()31 、数据库中有 “ Emp”，包括“Eno”“ Ename”“ Eage”“ Esex”“ Edate”“ Epan等y”字段。 下面程序 段的功能是：在窗体文本框 “tValue

18、 ”内输入年龄条件， 单击“删除”按钮完成对该年龄职工记录信息 的删除操作。Private Sub btnDelete_Click()单击 删除 按钮Dim strSQL As String 定义变量strSQL=delete from Emp赋值 SQL基本操作字符串 判断窗体年龄条件值无效 ( 空值或非数值 ) 处理If IsNull(Me! tValue)=True Or IsNumeric(Me! tValue)=False ThenMsgBox 年龄值为空或非有效数值 !,vbCritical,Error 窗体输入焦点移回年龄输入的文本框 tValue 控件内Me! tValue.S

19、etFocusElse 构造条件删除查询表达式strSQL=strSQL&where Eage=&Me! tValue 消息框提示 确认删除 ?(Yes/No), 选择 Yes 实施删除操作If MsgBox(确认删除 ?(Yes/No),vbQuestion+vhYesNo,确认 )=vbYes Then 执行删除查询DoCmd. strSQLMsgBoxcompleted!,vbInformation,MsgEnd IfEnd IfEnd Sub 按照功能要求，下画线处应填写的是 。A ExecuteB RunSQLC RunD SQL32 、采用DAO完成对“教学管理.accdb ”文件

20、中“学生表”的学生年龄都加 1的操作，程序下画线处应 填写的语句是 。Sub SetAgePlus()Dim ws As DAO.WorkspaceDim db As DAO.DatabaseDim rs As DAO.RecordsetDim fd As DA0.FieldSet db=CurrentDb()Set rs=db.OpenRecordset( 学生表 )Set fd=rs.Fields( 年龄 )Do Wbile Not rs.EOFfd=fd+1rs.Update rs.MoveNextLooprs.Closedb.CloseSet rs=NothingSet db=Noth

21、ingEnd SubA B rs.EditC Fields.EditD Edit33 、假设数据库中有学生信息表 stud(sno ，sname ，ssex) 。其中，性别 ssex 字段已建索引，要 在调试窗口中显示第一个男同学的信息，程序下画线处应填写的语句是 。Private Sub Form_Load()Dim rs As ADODB.Recordset考试中心教程 教学管理 .accdb; rs.CursorType=adOpenKeyset rs.LockType=adLockOptimistie rs.Index=ssex rs.Open stud,adCmdTableDirec

22、tDebug.Print rs(sno),rs(sname),rs(ssex) rs.CloseSet rs=NothingEnd SubArs.Find男,adSeekFirstEQBrs.Seek男,adSeekFirstEQCrs.Find男,adSeekLastEQDrs.Seek男,adSeekLastEQ34、在 VBA代码调试过程中，能够显示出所有在当前过程中的变量声明及变量值信息的是 A 快速监视窗口B 监视窗口C 立即窗口D 本地窗口35 、能够实现从指定记录集里检索特定字段值的函数是 。A Nz()B Find()C LookUp()D DLookUp()36 、子过程 P

23、lus 完成对当前库中 “学生表”的年龄字段都加 1的操作。Sub Plus()Dim cn As New ADODB.ConnectionDim rs As New ADODB.ReeordsetDim fd As ADODB.FieldDim strConnect As StringDim strSQL As StringSet cn=CurrentProject.Connection strSQL=Select 年龄 from 学生表 rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText年龄)Set fd=rs.Fields

24、(Do While Not rs.EOFfd=fd+1rs.UpdateLooprs.Closecn.CloseSet rs=NothingSet cn=NothingEnd Sub程序中 处应该填写的语句是 。A rs.MoveNextB cn.MoveNextC rs.NextD cn.Next37、教师管理数据库有数据表 “teacher ”，包括“编号 ”“姓名”“性别”和“职称”4个字段。下面程序 的功能是：通过窗体向 “teacher ”表中添加教师记录。对应 “编号”“姓名”“性别 ”和“职称 ”的4个文 本框的名称分别为： tNo 、tName 、tSex 和tTitles 。

25、当单击窗体上的 “增加”命令按钮 ( 名称为 Command1) 时，首先判断编号是否重复，如果不重复，则向 “teacher ”表中添加教师记录；如果编 号重复，则给出提示信息。Private ADOcn As New ADODB.ConnectionPrivate Sub Form_Load() 打开窗口时 , 连接 Access 本地数据库Set ADOcn=CurrentProject.ConnectionEnd SubPrivate Sub Command0_Click() 追加教师记录Dim strSQL As StringDim ADOcmd As New ADODB.Comma

26、ndDim ADOrs AS New ADODB.RecordsetSet ADOrs.ActiveConnection=ADOcnADOrs.OpenSelect 编号 From teacher Where 编号 =+tNo+If Not ADOrs.EOF ThenMsgBox 你输入的编号已存在 , 不能新增加 !ElseADOcmd.ActiveConnection=ADOcnstrSQL=Insert Into teacher(编号, 姓名, 性别 , 职称)strSQL=strSQL+Values(+tNo+,+tname+,+tsex+,+ttitles+)ADOcmd.Comm

27、andText=strSQLADOcmd. MsgBox 添加成功 , 请继续 !End IfADOrs.CloseSet ADOrs=NothingEnd Sub按照功能要求，在横线上应填写的是 。A ExecuteB RunSQLC RunD SQL38 、下列过程的功能是：通过对象变量返回当前窗体的 Recordset 属性记录集引用，消息框中输出 记录集的记录 (即窗体记录源 )个数。Sub GetRecNum()Dim rs As ObjectSet rs=Me.RecordsetMsgBox End Sub程序中 内应填写的是 。A CountB rs.CountC RecordC

28、ountD rs.RecordCount39 、在窗体中有一个文本框 Text1 ，编写事件代码如下：Private Sub Form_Click()X=val(Inputbox(输入x 的值)Y=1If X 0 Then Y=2Text1.Value=YEnd Sub 打开窗体运行后，在输入框中输入整数 12 ，文本框 Text1 中输出的结果是 。A 1B 2C 3D 440 、下列子过程实现对 “教师表 ”中的基本工资涨 10%的操作。Sub GongZi()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim fd

29、 As ADODB.FieldDim strConnect As StringDim strSQL As StringSet cn=CurrentProject.Connection strSQL=Select 基本工资 from 教师表 rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText Set fd=rs.Fields( 基本工资 )Do While Not rs.EOFrs.Update rs.MoveNext Loop rs.Close cn.Close Set rs=Nothing Set cn=Nothing End

30、 Sub程序空白处 应该填写的语句是 A fd=fd*1.1B rs=rs*1.1C 基本工资 = 基本工资 *1.1D 41 、窗体中有命令按钮 Command1，事件过程如下：Public Function f(x As Integer) As IntegerDim y As Integerx=20y=2f=x*yEnd FunctionPrivate Sub Command1_Click()Dim y As IntegerStatic x As Integerx=10y=5y=f(x)Debug.Print x;yEnd Sub运行程序，单击命令按钮，则立即窗口中显示的内容是 A105B

31、1040C205D204042、下列代码实现的功能是：若在窗体中一个名为 tNum的文本框中输入课程编号，则将 “课程表 ”中 对应的“课程名称 ”显示在另一个名为 tName文本框中。Private Sub()Me! tName=DlookUp( 课程名称 , 课程表 , 课程编号 =&Me! TNum&)End Sub则程序中 处应该填写的是 。A tNum_AfterUpdateB tNum_ClickC tNum_AfterInseitD tNum_MouseDown答案:选择题1、A 解析 本题考查的是 Hungarian 符号法命名规则， 标识符的名字以一个或者多个小写字母开头作为

32、 前缀；前缀之后的是首字母大写的第一个单词或者多个单词的组合，该单词要指明变量的用途。 “命 令”的英文全称为 command ，因此，本题应选择选项 A。2、A 解析 “子报表 ”的英文为 subreport 。因此，本题应选择选项 A。3、D 解析 0与任何数相乘都为 0，0和一个不为 0的数相加的值一定不为 0 。因此，表达式a*b=0 And a+b 0能够表示a和b中有且只有一个为 0。故选择选项 D。4、D 解析 Mod是对两个操作数做除法并返回余数。同时 Mod运算要求 2个数都是整数，不是的话就四舍五入，乘运算优先级高于 Mod运算符，所以 a=19.5 Mod 2*2=20

33、Mod 4=0。5、D解析 日期/时间函数DateDiff( , ，,W1,W2)返回两个日期之间按照间隔类型指定的时间间隔数目。根据题意，间隔类型为 “m”表示月， Date() 函数获得当 前系统时间。表达式的结果是当前系统日期与 1893-12-26 之间相差的月数，应该等于 “(当前年份 -1893) 12+( 当前月份 - 12) ”，因此选择选项 D。6、D 解析 Rnd() 函数产生的是 01之间的浮点数，不包含 1。Rnd*41 则产生041 之间的浮点数，不 包含41 ；Int(Rnd*41) 则产生0 ，40 之间的整数； 10+Int(Rnd*41) 则产生10 ，50

34、之间的整 数。故选择选项 D。7、A 解析 本题考查的是字符串截取函数 Left() 的用法。其格式为：Left( , ) ， 表示从字符串左边起截取 N个字符。因此 Left(how are you,3)表示从字符串 “how are you ”左边起截取 3个字符，返回值为 “howr”。8、A 解析 VBA 中去除字符串前面空格使用函数 Ltrim() ；Rtrim() 函数是删除字符串的尾部空格； Trira() 是删除字符串开始和尾部空格； Lcase() 函数是将字符串中小写字母转换成大写字母。9、A 解析 VBA 中求字符串长度的函数是 Len() 。10、A 解析 本题中要查询

35、女职工中年龄最小的记录，应先使用 Where语句： WHERE 性别= 女 限定 范围，之后利用 Year(Date()-Year( 生日 ) 表达式获得年龄，最后利用 Min(Year(Date()-Year(生日 ) 表达式求得最小年龄。因此选项 A正确。11、A解析 InStr( , )函数是检索子字符串 str2 在字符串str1 中最早出现的位置， 返回一个整型数据。因此选项 A正确。12、B 解析 本题中要查询男职工中年龄最小的记录，应先使用 WHERE语句： WHERE 性别= 男 限定 范围，之后利用 Year(Date()-Year( 生日 ) 表达式获得年龄，最后利用 Mi

36、n(Year(Date()-Year(生日 ) 表达式获得最小年龄。因此选项 B正确。13、D 解析 选项 A中，Choose() 根据第一个参数，返回后面字符串组的值；选项 B中，IIf() 根据表达 式返回特定的值；选项 C中， Switch() 能以多条件的形式返回多个值。因此，本题应选择选项 D。14、C 解析 VBA 中在一行中写多条语句时，应使用冒号 (:) 分隔。15、B解析 根据题意，程序功能是求 “x3- 5”表达式的值， x的值由文本框 Text0 输入，则在程序中应 该将Text0 的值赋给变量 x ，而程序中 Me.Text0=x 的功能却是将 x的值赋给 Text0

37、，不符合题意， 因此选择选项 B。16、B 解析 本题考查 Do While.Loop循环语句，若 n 的值小于 100 ，则反复执行 s=s+n ， n=n+1 的操作。本题S初始值为0，n初始值为1，满足循环条件，进入第 1次循环， S=0+1=1 ，n=1+1=2 ；进入 第 2次循环， S=1+2=3 ， n=2+1=3 ；如此循环进行，直至第 99 次循环， S=1+2+3+99=4950 ， n=99+1=100 ，不再满足循环条件，结束循环， S值为 4950 。因此选择选项 B。17、C 解析 Do until Loop 循环采用的是先判断条件后执行循环体的做法，如果条件为 T

38、rue ，则循环 体一次都不执行，否则进入循环体执行。本题中，若不满足 y5的条件，则执行 x=xy， y=y+1 操 作。 x初始值为2，y值初始值为 5，满足循环条件，进入第一次循环， x=25=10，y=5+1=6 ，不再 满足循环条件，跳出循环， x的值最终为 10 。故选择选项 C。18、A 解析 本题考查的是 For 循环的执行条件。 For 循环的初始条件 i=9 ，结束值是 0，当开始值比结束 值大时，步长必须为负值，否则不执行。本题步长没有设置，默认步长是1，因此不会执行 For 循环里面的代码。因此，本题应选择选项 A。19、A 解析 在 VBA中打开一个文本文件可用语句

39、Open，其中打开方式有 Input ，Output ，Append ， Binary ，Random；Open 是语句，前面不需要 Docmd对象调用； OpenFile() 是函数，能执行大量 不同的文件操作，它是为兼容 16 位Windows 程序保留的函数。因此选择选项 A。20、D 解析 InputBox() 函数表示在对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含 文本框内容的字符串，其函数格式为InputBox(prompt,titk,default,xpos,ypos,helpfile,context) 。 Prompt 是必需的，作为对话框消息出现的字符串表达式；

40、 Title 是可选的，显示对话框标题栏中的 字符串表达式； Default 是可选的，显示文本框中的字符串表达式。因此本题中的消息框标题初始 显示“输入”，文本框初始显示 “练习”，从键盘上输入字符串 “示例”后，传给str1 ，其值为 “示例”。21、C 解析 在VBA中提供了 Active 数据对象 (ADO) 作为数据库的访问接口， ADO对象模型中包括五个主 要对象，即Connection ，代表到数据库的连接； Recordset ，代表数据库记录的一个集合； Command， 代表一个 SQL命令； Error ，代表数据库访问中产生的意外； Field 字段，代表记录集中的字段

41、数据 信息。22、A 解析 程序中 rs 是对象变量，指代窗体对象， Set 语句是将当前窗体中的记录集对象赋给 rs 对象， Me表示当前窗体，用 Me指明记录集来自于窗体， Recordset 属性设置窗体、报表、列表框控件或组 合框控件的记录源，用 Me.Recordset 代表指定窗体的记录源，即记录源来自于窗体。而 RecordSourse 属性用来设置数据源，格式为 RecordSourse= 数据源。因此括号内应填 Me.RecordSet 。23、D 解析 ADO(Activex Data Objects)，是 DAO/RDO的后继产物。翻译成中文即 ActiveX 数据对象。

42、因此，选择选项 D。24、B 解析 ADO(ActiveX Data Objects)是一个用于存取数据源的 COM组件。提供了编程语言和统一数据访问方式 OLEDB的一个中间层。 ADO包含一些顶层的对象，其中 Connection 代表数据库的连 接； Reeordset 表示数据库中记录的一个集合； Command代表在 VBA中使用 SQL语句，可以完成 Recordset 对象不能完成的操作， 如创建表、修改表结构、删除表、将查询结果保存为新表等； Error 依赖于 Connection 对象的使用，代表访问数据库的过程中产生的错误； Field 依赖于 Recordset 对象的

43、使用，代表记录集中的字段数据信息。 Parameters 依赖于 Command对象的使用，代表 SQL 语句中传递的参数。因此选择选项 B。25、A 解析 本题考查的是如何使用 ADO数据库技术操作数据库。 其中，RecordSet 对象 rs 是用来表示来 自基本表或命令执行结果的记录集。 rs 更新完一条记录之后，需要使指针往后移动到下一个记录上 ( 注： MoveNext ，移动到下一个记录的位置 ) 。因此，本题应选择选项 A。26、A 解析 本题考查的是如何使用 ADO数据库技术操作数据库。 其中，RecordSet 对象 rs 是用来表示来 自基本表或命令执行结果的记录集。 Do

44、 While 循环用于更记录集中的记录， EOF表示记录指针是否 位于最后一条记录之后。当条件满足时，即没有到达最后一条记录时，执行循环体，满足条件的只有 选项 A。因此，本题应选择选项 A。27、A 解析 RecordSet 对象表示来自基本表或命令执行结果的记录集， 其常用的方法有 Move 、AddNew、 Update 、Delete 等。本题在每次工龄进行加 1 操作之后，需要及时对记录集进行更新。因此，选择选项 A。28、A 解析 根据题意，每次登录要检查用户名和密码，检查正确后登录成功，登录次数(fd1) 加1，最近登录时间 (fd2) 更新为本次登录的日期和时间。在程序空白处，

45、 fd1 已经完成更新，且空白处之后 立即更新了结果集 rs ，则所填代码句的功能应该是为 fd2 赋予当前时间值， 可用 Now() 函数获得系统 日期和时间。 Date() 函数只能获得日期，不包含具体时间， Time() 函数只能获得具体时间，不包 括日期， Day() 函数只能获得某一日期中的天数，都不符合题意，因此选择选项 A。29、A 解析 根据题意， 处的代码应实现的功能是在 “课程表”中查询出 “课程编号”等于tNum文本框中数据的 “课程名称”，DLookUp() 函数有此功能。 DLookUp() 函数的格式为： DLookUp( 表达式, 记录集 , 条件式) 。其中，表

46、达式用来指定要查询的字段，即题中的 “课程名称 ”；记录集用来指定 要查询的范围，即题中的 “课程表”；条件式用来指定查询条件，即题中的 “课程编号 =&Me! tNum& ，因此选择选项 A。30、A 解析 内置函数中域聚合函数是在 SQL聚合函数的前面加 D，其功能与聚合函数相似， 但可以在 VBA 中直接调用。 DLookUp() 的功能是从记录中检索特定字段的值， Dcount() 的功能是返回指定记录 集中的记录数， Dfirst()和Dlast() 的功能是返回表或查询中特定字段的随机记录， 因此选择选项A。31、B 解析 DoCmd对象的 RunSQL方法用来运行 Aceess 的操作查询，完成对表的记录操作。还可以运行 数据定义语句实现表和索引的定义操作。32、B解析 因需要对“学生表”的学生年龄进行加 l 的操作，需要修改数据库中的数据，因此程序需要使 用 rs.Edit 将记录设置为可编辑状态。33、B 解析 DAO 的See