全国计算机二级acce代码题_计算机二级access试题
全国计算机二级acce代码题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“计算机二级access试题”。
基本操作与简单应用
1.将“入校时间”时间字段默认值设置为下一年度的一月一日。DateSerial(Year(Date())+1,1,1)2.查找收藏品CD盘最高价格和最低价格信息输出，标题显示为v_Max和.v_Min 答：两次双击“价格”字段→视图→总计→第一个价格“总计”下拉选最大值，第二个选最小值→在第一个价格字段前添加v_Max，第二个前添加v_Min→保存。3.查找还没有选课的学生姓名。
答：查询→设计视图→添加显示表→追加查询到tTemp→双击所需字段→切换SQL视图→第二行语句改为：SELECTTOP 5 tStud.学号, tStud.姓名，tStud.年龄.4.＂班级编号＂数据由统计地图得到，是学号的前6位，运行时提示：＂请输入班级编号：＂ 答：选中三个显示表，在第一列输入＂班级编号：Left（[tStudent]！[学号]，6）＂，在条件行输入：[请输入班级编号：]，保存。
5.创建一个交叉查询，统计各班每门的平均成绩，如图。
答：修改字段“学号”为“班级编号:left([tScore]![学号],8)”；将“成绩”字段改为“round(avg([成绩]))”，并在“总计”中选择“表达式”。分别在“学号”、“课程名”和“成绩”字段的“交叉表”行中选择“行标题”、“列标题”和“值”。
6.在报表页面页脚添加一个计算控件，格式为：××××年××月
答：在工具箱中选择“文本框”控件，在报表页面页脚节区单击，选中“Text”标签，按Del键将其删除，右击“未绑定”文本框，选择“属性”，在“全部”选项卡下的“名称”行输入“tDa”，在“控件来源”行输入“=CStr(Year(Date()))+”年“+CStr(Year(Date()))+”月“” 7.查询，最大教师与最小教师年龄的差值，标题为m_age 答：在字段行输入：m_age：Max([tTeacher]！[年龄]－min([tTeacher]！[年龄])，单击√ 8.设置报表主体节文本框tDept的控件来源为计算控件。根据“所属部门”字段值填写。答：右击tDept的属性“控件来源”输入“＝DLookUp(”名称“，”tGroup“，”所属部门＝部门编号“)”。9.创建一个参数查询，查找“学号”“姓名”“性别”“年龄”，设置年龄为参数，参数值要求引用窗体fTemp上控件tAge的值。
答：在“年龄”字段的“条件”行输入“[Forms]![fTemp]![tAge]”。
10.创建追加查询，姓名字段的第一个字符为姓，和学号组合在一起。
答：在“字段”行的第一列输入“标识: [学号]+Left([姓名],1)”，然后双击“姓名”、“性别”和“年龄”字段。
11.“工作时间”本年度4月1.“年龄”字段有效性规则。答：“DateSerial(Year(Date()),4,1)”。“is not null”。
12.党员，非党员。“tPa”在“控件来属性”行输入“＝IIf([党员否]＝True，”党员“，”非党员“)” 13.假设‘学生ID’字段的前四位代表年级统计各个年级不同课程的平均成绩，降序。
答：在“字段”行第一列输入“年级： Left([tStud]！[学生ID]，4)”，在“排序”行下拉列表中选中“降序”。分别双击“课程ID”、“成绩”字段添加到“字段”行。
14.创建一个更新查询，用于计算水费，公式如下水费=3.7*（本月水—上月水）答：双击字段列表中的“水费”字段【更新查询】，在“更新到”行输入“3.7*([本月水]-[上月水])” 15.“已住天数”“应缴金额”：“姓名”字段条件输入：[请输入姓名：]→下一行输入：已住天数：Day(Date()-[入住日期])下一列输入：应交金额：已住天数：Day(Date()-[入住日期])*[价格] 16.查找“身份证”字段，条件输入“Mid([身份证]，4，3)=102，取消显示。17.楼号：Left([房间]，2).1.输入1时，输入3时，输入＞=3时，答：右键＂输出＂按钮，事件生成器，代码：Case Is＞=3
DoCmd.OpenReport＂rEmp＂
2.F1=1 n=1 F2=1 n=2 Fn=Fn-1+Fn-2 n＞=3 答：f（i）=f（i-1）+f（i-2）
tData=f（19）
3.设置系统当前日期：Form.Caption＝ Date 4.单击命令按钮bList，要求运行宏对象m1.补充完整。答：事件生成器，代码：DoCmd.RunMacro“m1” 5.在窗体中有“修改”“保存”两个按钮，点击修改，保存可用。答：CmdSave.Enabled＝ True 6.补充窗体fText上bt1的单击事件代码，实现如下功能。。答：右键单击“test1”按钮，【事件生成器】，在空格行输入：bTitle.Caption＝tText 7.窗体功能：打开窗体，单击计算按钮，事件过程使用ADO数据库技术。。答：1）If rs.RecordCount=0 Then 2）tAge=sage 8.窗体有个组合框和文本框，名称分别为CItem和TxtDetail.答：1）Dim aa aa = cItem.Value Ldetail.Caption = aa + “内容：” 2）fDetail.Form.RecordSource = “tStud” 3）MsgBox “查询项目和查询内容不能为空”, vbOKOnly, “注意” 9.请重新输入口令。
答：MsgBox “请重新输入口令！”，vbOKquit 10.答：if MsgBox(“报表预览”, vbYesNo+ vbQuestion, “确认”)=vbYes Then 11.单击刷新按钮，按性别条件动态显示退休职工的信息。答：Form.RecordSource＝ “qEmp” 12.在eSalary报表的主体节上添加两个计算控件：工资。
答：右键单击“Text”文本框选择【属性】，在“标题”行输入“应发工资”，关闭属性界面。
右键单击“未绑定”文本框选择【属性】，在“名称”行输入“ySalary”，在“控件来源”行输入“[基本工资]＋[津贴]＋[补贴]”，关闭属性界面。按步骤1～3添加另一个计算控件“Salary”，“控件来源”行输入“[基本工资]＋[津贴]＋[补贴]－[住房基金]－[失业保险]”。
13.在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名为“bt1”“bt2”
答：单击刷新事件生成器，1）Form.RecordSource = “qemp”
右键单击命令按钮“退出”选择【事件生成器】，空行内输入“代码” 2）DoCmd.Close 3）'DoCmd.Close
14.计算10000以内素数，个数及最大数两个值。
答：步骤1：选择窗体设计视图中的“输出”按钮，右击选择“属性”。步骤2：单击“事件”右边的“...”按钮。
计算10000以内的素数个数及最大素数两个值的语句为： For i = 2 To 10000 If sushu(i)Then n = n + 1 If i>mn Then mn = i End If End If Next i 步骤3：代码调用宏对象“mEmp”的语句为：DoCmd.RunMacro “mEmp”。步骤4：最后保存并运行该窗体。
15.修改查询对象，qEmp为参数查询，参数为引用窗体对象“fEmp”上文本框“tSS”输入值。答：双击“改性别”字段，在“性别”条件输入“[forms]！[fEmp]！[tSS]”取消“性别”字段的显示。16.窗体加载时，将考生文件夹下的图片“text.bmp”设置为窗体背景，路径CurrentProject.Path 答：Form.Picture=CurrentProject.Path& “test.bmp” 17，等级考试测试。bTitle.Caption = Trim(tText)& “等级考试测试” 18.单击窗体“报表输出”按钮，调用事件代码以预览的方式打开。；单击退出。
答：DoCmd.OpenReport “rEmp”，acViewPreview 19.“学号字段”5，6位代表专业信息：当为“10”时表示信息专业，其他为管理专业。
答：“tSub”选择属性。在“控件来源”行输入“＝IIf(Mid([tNum]，5,2)＝”10“，”信息“，”管理“)” 20.图书的平均单价
答：“控件来源”行输入“=Round(Avg([单价]))21.报表添控件，判断图书金额合计，答：右键单击【该文本框】|【属性】，单击”全部“选项卡,在”名称“行输入”txtIf“；在”控件来源“行输入”=IIf（txtMoney>30000,“达标”,“不达标”)“，关闭属性界面。22.窗体中“报表输出”和“退出”，退出变红色，答：1）bt2.ForeColor = 255 2）'DoCmd.OpenReport ”rEmp“, acViewPreview 23.年度报表输出：Form.bTitle.Caption = Year(Date)& ”年度报表输出“ 24.窗体“显示全部记录”：
答：右键单击命令按钮”显示全部记录“选择【事件生成器】。→在空行内输入代码： Private Sub Command4 Click()BBB.Form.RecordSource＝ ”select * from tStudent where 姓名 like '“ & Me！[Text2] & ”*'“ End Sub Private Sub bListClick()'*** 请在下面双引号内添入适当的SELECT语句 ***' BBB.Form.RecordSource＝ ”select * from tStudent“ *******************' [Text2] ＝ ” “ End Sub Private Sub 命令7 Click()DoCmd.Close End Sub”
