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

  • 19
  • 0
  • 约5.99千字
  • 约 8页
  • 2018-01-18 发布于河南
  • 举报

全国计算机二级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([年龄])from[tStudent]) AutoExec 自动启动宏 如何实现access关闭窗体时弹出保存、不保存或取消 提示 在窗体的Form_Unload事件里加入代码,就可以实现, 例Cancel=Msgbox(是否保存记录?,VbYesNoCancel+VbQuestion,要求确认) 从工具箱中选择文本框控件添加到窗体中,在弹出的文本框向导中单击取消,右键单击文本框,选中属性,选择全部页,名称输入为time,关闭属性。右键单击标签,选中属性,在全部输入标题为计时:,关闭属性窗口。 步骤4:右键单击窗体视图空白处,选择属性,在弹出的窗体窗口中,将光标定位到事件页的计数器间隔行,输入1000,将光标定位到计数器触发行,单击…按钮,弹出选择生成器对话框,选择代码生成器单击确定按钮,进入VBE环境。输入如下代码: *****time文本框计时代码***** Dim flag As Boolean Private Sub Form Open(Cancel As Integer) flag = True End Sub Private Sub Form Timer() If flag = True Then Forms![计时].[Time] = Forms! [计时].[Time]+1 End If End Sub ********************** 步骤5:单击工具栏中保存按钮,关闭代码窗口。 (2)【操作步骤】 步骤1:从工具箱中选择命令按钮控件添加到窗体中,在弹出的命令按钮向导中选择取消,右键单击命令按钮,选择属性,在全部中输入按钮名称及标题为暂停,关闭属性窗口。 步骤2:选择暂停按钮控件,单击鼠标右键,在弹出的下拉菜单中选择事件生成器,在选择生成器对话框中选择代码生成器,单击确定按钮,弹出代码窗口,在Private Sub和End Sub之间添加flag=False。 步骤3:关闭代码窗口,继续按钮的添加同理,添加代码为flag=True。 =Left([编号],4) =Avg([年龄]) 代码设计 单击“关闭”按钮(),关闭窗体,补充代码:DoCmd.Close acForm, 窗体名称 F1窗体上单击“输出”,实现:计算Fibonacci数列第16项值,将结果显示在窗体上名为“data”的文本框并输出值外部文件保存;单击“打开表”,调用宏对象M1以打开数据表“学生”: F1=1 N=1 F2=1 N=2 Fn=Fn+Fn-2 N=3 Dim n As Integer Dim s As Integer Dim f(16) As Integer f(1)=1:f(2)=

文档评论(0)

1亿VIP精品文档

相关文档