全国计算机二级Access等级考试上机考试易错题.doc

全国计算机二级Access等级考试上机考试易错题计算机上机考试 平均年龄：所在院系（总计分组）；年龄（总计平均值） 字段行：“年龄”“平均年龄：年龄”；保存 设置系统日期：Date（） 有效性规则：男或女，有效性文本：请输入男或女： 有效性规则：“男”Or“女”；有效性文本：请输入男或女 设置电费有效性规则大于零：有效性规则：0 创建查询，运行该查询时显示参数信息：请输入学生爱好，输入爱好后，在个人简历中查找指定爱好学生：在个人简历字段对应的条件中输入“Like*+请输入学生爱好+*” 设置平均成绩为两位小数：属性常规格式固定小数位数2 修改查询对象“qtemp”为参数查询，参数为引用窗体“ftemp”上文本框“ssex”的输入值： 在字段条件中输入：Forms!ftemp!ssex 根据“年龄”字段值计算出生年：出生日期=Year(Date()-年龄 （ttemp是表名称） =Year(Date()-ttemp！年龄 学号前六位排序：年级：Left成绩!学号,6 （成绩是表格） 最高分与最低分的差：Max(成绩)-Min(成绩) 入学时间显示“xx月xx日xx年”：格式：mm月dd日 yyyy 更改窗体3个命令按钮的Tab键移动顺序为：com1-com2-com3-com1-.： com2属性Tab键索引输入1，com3属性Tab键索引输入2 将text.xls数据连接到当前数据库里面去：新建链接表确定text.xls链接链接数据向导. 报表“-页码总页数-”：=-&Page&Pages&- 创建一个查询，检索职务为“主管”的职工的“职工号”和“姓名”信息，然后将两列信息合二为一输出，如“200806 刘晓晓” 部门主管：职工号+姓名 学号+Left(姓名，1) DateSerial(Year(Date(),9,1) 班级编号: Left(tStudent!学号,6) (SELECT AVG(年龄)fromtStudent) AutoExec 自动启动宏如何实现access关闭窗体时弹出保存、不保存或取消 提示在窗体的Form_Unload事件里加入代码，就可以实现，例Cancel=Msgbox（是否保存记录？,VbYesNoCancelVbQuestion,要求确认） 从工具箱中选择文本框控件添加到窗体中，在弹出的文本框向导中单击取消，右键单击文本框，选中属性，选择全部页，名称输入为time，关闭属性。右键单击标签，选中属性，在全部输入标题为计时：，关闭属性窗口。步骤4：右键单击窗体视图空白处，选择属性，在弹出的窗体窗口中，将光标定位到事件页的计数器间隔行，输入1000，将光标定位到计数器触发行，单击按钮，弹出选择生成器对话框，选择代码生成器单击确定按钮，进入VBE环境。输入如下代码：*time文本框计时代码*Dim flag As BooleanPrivate Sub Form Open(Cancel As Integer) flag TrueEnd SubPrivate Sub Form Timer() If flag True Then Forms！计时Time Forms! 计时Time1 End IfEnd Sub*步骤5：单击工具栏中保存按钮，关闭代码窗口。(2)【操作步骤】步骤1：从工具箱中选择命令按钮控件添加到窗体中，在弹出的命令按钮向导中选择取消，右键单击命令按钮，选择属性，在全部中输入按钮名称及标题为暂停，关闭属性窗口。步骤2：选择暂停按钮控件，单击鼠标右键，在弹出的下拉菜单中选择事件生成器，在选择生成器对话框中选择代码生成器，单击确定按钮，弹出代码窗口，在Private Sub和End Sub之间添加flagFalse。步骤3：关闭代码窗口，继续按钮的添加同理，添加代码为flagTrue。=Left(编号,4)=Avg(年龄)代码设计 单击“关闭”按钮（），关闭窗体，补充代码：DoCmd.Close acForm, 窗体名称 F1窗体上单击“输出”，实现：计算Fibonacci数列第16项值，将结果显示在窗体上名为“data”的文本框并输出值外部文件保存；单击“打开表”，调用宏对象M1以打开数据表“学生”：F1=1N=1F2=1N=2Fn=Fn+Fn-2N=3a. Dim n As Integerb. Dim s As Integerc. Dim f(16) As Integerd. f(1)=1:f(2)=1e. For n =3 To 16f. f(n)=f(n-1)+f(n-2)g. Next nh. data =f(16)i. If Dir (CurrentProject.Path&out.dat,vbDirection)vbNullSting Then j. Kill CurrentProject.Path&out.datFor Output As #1k. Print #1,Me!Datal. Close #1m. End sub字体不同者为此题答案，从i到l为（外部显示）编码 打开窗体，单击计算按钮（com1），事件过程使用ADO数据库技术计算出表对象“职工表”中党员职工的平均年龄，然后将结果显示在窗体的文本框“fage”内并写入外部文件：设置当前数据库链接Set cn =CurrentProject.ConnectionstrSQL =select avg(年龄)from 职工表 where党员否rs.Open strSQL,cn sdOpenDynamic,adLockOptimisticIf rs.EOF=true ThenMsgBoxSage=0Exit SubElseMe!fage=rs.Fields(0)rs.Closecn.CloseSet rs =NothingSet cn=Nothing关闭，保存。选择窗体，打开，单击计算按钮，生成dat文件。 设置窗体标签“Title”为文本框Text，输入内容与文本串“二级等级考试测试”的链接并消除连接串的前导和尾随空白字符：Title.Caption=LTrim(Text)+二级等级考试测试 在窗体的4个文本框中输入合法的学生信息后，单击“追加”（com1）按钮，程序首先判断学生学号是否重复，如果不重复则向表对象“学生”添加学生记录，否则出现提示信息，当点击窗体上的“退出”按钮（com2）关闭窗体：建立连接Set ADO =CurrentProject.ConnectionADOrs.ActiveConnection=ADOcnADOrs.OpenSelect学号From学生Where学号=+id+,adOpenForwardOnly,adLockReadOnlyIf Not ADOrs.EOF ThenMsgBox该学号已存在，不能追加！Else strSQL=Insert Into (学生，姓名，性别，年龄) strSQL=strSQL+Values(+id+,+Age+) ADOcn.Excute strSQL MsgBox添加成功，请继续！End if ADOrs.Close ADOcn.CloseSetADOrs=NothingSetADOcn=NothingEnd Sub 附件：条件：男，小于20岁的打钩其余空着：在控件来源中输入：“Iif（年龄=1980-1-1标签为红色：在代码中输入：forecolor=255引用窗体对象（参数查询）：在准则行中输入：forms!窗体名!控件名学生ID：在条件行中输入：left（学生ID,4）页码：添加一个文本框，在文本框中输入：page&”/”pages窗体功能：打开窗体、单击“计算”按钮（名为bt），事件过程使用ADO数据库技术计算初表对象“tEmp”中党员职工的平均年龄，然后讲结果显示在窗体的文本框“tAge”内并写入外部文件中。(1) dim is as new ADODB.Recordset(2) Strsel(3) If rs.EOF then(4) Me.Tage=sageEof 函数：新纪录是=true；非新纪录=false（指向非新纪录）入校年：在条件行输入：year（入校日期）控件的标题属性：在VBA代码中输入：me.btitle.coption=Me.tText组合框值男或女：可在向导中输入（或空间来源中输入）：“男”：“女”（2）修改查询对象“qEmp”为参数查询，参数为引用窗体对象“fEmp”上文本框“tSS”的输入值；在条件行输入：forms！窗体名！控件名（3）设置窗体对象“fEmp”上文本框“tPa”为计算控件。要求依据“党员否”字段值显示内容：“党员否”字段值为Ture，显示“党员”两字；“党员否”字段值为False，显示“非党员”三个字；（3）空间来源中输入：=iif(党员,党员,非党员)（4）单击“刷新”按钮（名为bt1），事件过程动态设置窗体记录员为查询对象“qEmp”，事件窗体数据按性别条件动态显示；单击“退出”按钮（名为”bt2”），关闭窗体。（4）动态显示查询对象qEmpRecordsource=“qEmp”Docmd.close年龄最大值减去 最小值：一般填写在计算控件中：max（年龄）-（年龄）（5）命令按钮（名为bList），单击该按钮后，应事先将tStudent表中的全部记录显示出来的功能。在VBA代码中相应位置输入：Bbb.form.Recordsource=”select*form tstudent”（3）查找小于平均年龄的学生，一般为查询，在条件行中输入：=3时调用宏“mEmp”打开数据表tEmp在VBA代码中相应位置输入：k = InputBox(请输入大于0的整数值)DoCmd.OpenReport rEmp, acViewPreviewDoCmd.RunMacro mEmp在窗体四个文本框内输入合法的职工信息后，单击”追加”按钮（名为bt1）,程序首先判断职工编号是否重复，如果不重复则向表对象”tEmp”中添加职工纪录，否则出现提示；当点击窗体上的”退出”按钮（名为bt2）时，关闭当前窗体。在VBA代码中相应位置输入：If ADOrs.EOF = False ThenDoCmd.Close检索函数 DLookUp：从非数据源表中检索出对应部门名称：在空间来源中输入：=DLookUp(名称,tGroup,部门编号= & Reports!rEmployee!所属部门 & )docmd对象的OpenReport：acViewDesign报表设计视图，acViewNormal报表普通视图docmd.RunMacro MacronameObjectType为可选参数，用于指定数据库对象类型，可使用下列常量：acDataAccessPage：数据访问页。acDefault：默认。acDiagram：数据库图表。acForm：窗体。acFunction：函数。acMacro：宏。acModule：模块。acQuery：查询。acReport：报表。acServerView：服务器视图。acStoredProcedure：存储过程。acTable：表inputbox (提示信息,消息框的标题,输入框里面的默认值)第一个为必选参数,第二个和第三个参数为可选参数,当不写第二个参数,而写第三个参数,第二个参数的逗号不能少.Msgbox( 对话框提示信息,按钮类型,标题) 第一个参数必选,第二,第三个参数可选.（1） 布尔型型数据(boolean):只有两个值,true和false ,.布尔型数据和其他数据类型相互转化的准则.布尔型转化成数值.true转换为-1,False转换为0。其他类型数据转换为布尔型数据时， 0转化