ACCESS上机考核盘答案 (2)

《ACCESS上机考核盘答案 (2)》由会员分享，可在线阅读，更多相关《ACCESS上机考核盘答案 (2)（19页珍藏版）》请在装配图网上搜索。

1、第1套题基本操作题（3）在“格式”中输入：mm月dd日yyyy简单应用题（2）请输入职工所属部门名称（3）05+编号综合应用题第2套题基本操作题（5）010-00000000简单应用题（2）请输入要比较的分数:（3）班级编号: Left(tStud.学号,8) 表达式1: Round(成绩)综合应用题（3）=Str(Year(Date() & 年 & Str(Month(Date() & 月（4）“视图”“排序与分组” 在字段/表达式中输入：=Left(编号,4) 并将组页眉和组页脚设置为是计算控件：=Avg(年龄)第3套题基本操作题简单应用题（1）s_data: Max(年龄)-Min(年龄

2、)（4）平均成绩: (数学+计算机+英语)/3综合应用题（2）选项组控件（3）单选按钮控件第4套题基本操作题（4）输入掩码为“短日期” 默认值：DateSerial(Year(Date(),9,1)简单应用题（2）“学分”的重新命名（3）=1975 And Year(出生日期)=17 And =55（3）默认值：Date()（4）交换表结构中“职务”与“聘用时间”两个字段的位置，在设计中完成。简单应用题（4）设置命令按钮单击事件属性为给定的宏对象“mTest”综合应用题（3）=Page & / & Pages第7套题基本操作题（3）有效性规则：5（4）管理人员: 编号+姓名综合应用题（2）复选

3、框控件（3）设置复选框控件的“默认值”属性为假值第8套题基本操作题（2）“销售业绩表”的主键为：时间+编号+物品号（3）将文本文件Test.txt导入到数据库中（5）以命令按钮“bt1”为基准，调整命令按钮“bt2”的大小和位置简单应用题（1）请输入教师姓名（2）=80 And =100（3）年级: Left(学生ID,4) 成绩之平均值: 成绩（4）最高分与最低分的差: Max(成绩)-Min(成绩)综合应用题（1）标签控件：宽度、高度、颜色、字体名称、字体大小（2）窗体的属性：细边框、水平和垂直滚动条、最大化和最小化按钮、记录选定器、导航按钮、分隔线=Year(Date()-Year(出生

4、日期)Private Sub CmdQuit_Click()* Add *DoCmd.Close* Add *End Sub（4）=IIf(Mid(学号,5,2)=10,信息,经济)（5）=Avg(成绩) =fScore 子窗体.Form!txtAvg第9套题基本操作题简单应用题（1）家长身份证号 Is Not Null（2）自连接查询，需讲解（3）num: 身份证号（4）语文+数学+物理综合应用题（2）=Avg(年龄)第10套题基本操作题简单应用题（2）Like *摄影*综合应用题Private Sub bList_Click() 设置代码执行宏 *Add2* DoCmd.RunMacro

5、m1 *Add2*End SubPrivate Sub Form_Load() 设置标签标题为系统日期 *Add1* Me.tda.Caption = Date *Add1*End Sub第11套题基本操作题（3）在tNorm表的设计视图中，右键单击左上角，选择“属性”进入设置（5）000V-000W简单应用题（1）Like *书法* Or Like *绘画*（2）=5 And =10（3）优惠后价格: 费用*.9（4）Year(出发时间)2002综合应用题（3）=Count(团队ID)第13套题基本操作题（2）有效性规则：#2005-1-1#简单应用题（3）Forms!fTest!tSex（

6、4）Like 李?明综合应用题报表大题：需讲解第14套题基本操作题（3）DateSerial(Year(Date(),1,1)（6）用“另存为”来完成简单应用题（2）编号姓名: 编号+姓名（3）请输入教工年龄综合应用题（2）=IIf(性别=1,男,女)第15套题基本操作题（3）默认值：Date()-1（5）输入掩码：AAAAAAAA简单应用题（1）Like 王*（2）主管 Or 经理（3）请输入职工的职务（4）年龄+1综合应用题（2）=IIf(性别=男 And 年龄=1 And Month(入校时间)=10简单应用题（1）博士（2）=#1980-1-1#简单应用题（1）v_max: Max(价

7、格)v_min: Min(价格)（2）Year(购买日期) =2001（3）请输入CD类型名称：综合应用题（1）将窗体的记录源改为查询对象“qT”Private Sub bc_Click()Me.CDID_标签.ForeColor = 255End Sub第19套题基本操作题（3）DateSerial(Year(Date(),4,1)（4）Is Not Null（6）AAAAA简单应用题（1）先修课程Is Null（2）Like *101* Or Like *102*（3）Like *红*综合应用题（1）将文本框控件改为组合框控件（2）Forms!fEmp!tSS（3）=IIf(党员否,党员,

8、非党员)Private Sub bt1_Click() 动态设置窗体记录源属性 *Add1* Me.RecordSource = qEmp *Add1* 刷新窗体 Me.RequeryEnd SubPrivate Sub bt2_Click() 关闭窗口 *Add2* DoCmd.Close *Add2*End Sub第20套题基本操作题（1）=15 And =5综合应用题（2）报表按性别排序 =Page & / & Pages（3）标签与命令按钮的位置第22套题基本操作题简单应用题（3）(select avg(年龄) from tStudent)（4）班级编号: Left(tStudent.

9、学号,6)综合应用题第23套题基本操作题（5）00000简单应用题（3）(select avg(年龄) from tStudent)（4）班级编号: Left(tStudent.学号,6)综合应用题Private Sub CmdEdit_Click() 用户名_1.Enabled = True Me!Lremark.Visible = True Me!口令_1.Visible = True Me!备注_1.Visible = True Me!tEnter.Visible = True* 请在下面添加一条语句 * Me.CmdSave.Enabled = True*End Sub第24套题基本操

10、作题（3）将按钮的“可用”属性设置为“否”（4）DateSerial(Year(Date(),1,1)（5）AAAAA简单应用题（1）Like *+请输入爱好+*（3）Is Null 需讲解综合应用题（2）按“聘用时间”字段排序 =Date()（3）标签与命令按钮的位置第25套题基本操作题简单应用题（2）入校年: Year(入校时间)（3）Me.bTitle.Caption = Me.tText.Value综合应用题（5）Me.Caption = Date第26套题基本操作题（3）格式：mm月dd日yyyy简单应用题（1）maxy: Max(年龄) miny: Min(年龄)（2）10000（

11、3）请输入产品代码:（4）交叉表查询综合应用题（4） *Add1* If rs.EOF = True Then *Add1* *Add2* Me!tAge = rs.Fields(0) *Add2*第28套题基本操作题（5）特殊效果：凿痕（6）调整命令按钮大小与位置简单应用题（1）Month(上课日期)=3（2）请输入教师姓名（3）Between 80 And 100（4）年级: Left(学生ID,4)综合应用题（1）文本框改为组合框（2）Forms!fEmp!tSS（3）=Year(Date()-年龄（4）关闭窗口 *Add* DoCmd.Close *Add*第29套题基本操作题（3）默

12、认值：1000（4）备份用“另存为”来完成（5）表属性有效性规则：津贴(select avg(单价) from tbook)（2）请输入售出日期（3）=15 And =20（4）总数量: 数量 总计综合应用题（5）Private Sub bQuit_Click()* 请在下面填入一行语句 * DoCmd.Close*End Sub第33套题基本操作题（3）Year(出生日期)#2000-1-1#简单应用题（1）Between 18 And 20（2）党员否 False（3）交叉表查询综合应用题（5） *Add* MsgBox 请重新输入口令！, vbOKquit *Add*第35套题基本操作题

13、（3）Date()+1（4）=22 And =40简单应用题（1）Like 王*（2）需讲解（3）Month(预约日期)=10（4）Forms!fQuery!tName 需讲解综合应用题（5） *Add* Me.CmdSave.Enabled = True *Add*第36套题基本操作题简单应用题（3）楼号: Left(房间号,2)（4）type: 房间类别 num: 房间号综合应用题（3）“可用”属性（5）Private Sub btnP_Click()Dim k As String*Add1*k = InputBox(请输入大于0的整数值)*Add1*If k = 3 DoCmd.RunM

14、acro mEmp Case 2 *Add2* DoCmd.OpenReport remp, acViewPreview *Add2* Case 1 DoCmd.CloseEnd SelectEnd Sub第37套题基本操作题（4）有效性规则：100 And #1990-12-31#（2）=- & Page & / & Pages & -（4）Private Sub btnP_Click()Dim k As Stringk = InputBox(请输入大于0的整数值)If k = 3 *Add1* DoCmd.RunMacro mEmp Case 2 *Add2* DoCmd.OpenRepo

15、rt remp, acViewPreview *Add2* Case 1 DoCmd.CloseEnd SelectEnd Sub第38套题基本操作题（1）主键为“学号”+“课程号”简单应用题（2）入校年: Year(入校时间)（3）Private Sub bt1_Click() *Add1* Me.bTitle.Caption = LTrim(Me.tText) + 等级考试测试 *Add1*End Sub综合应用题 *Add1* If Not ADOrs.BOF Then *Add1* *Add2* DoCmd.Close *Add2*第39套题基本操作题（1）主键为三个字段（2）在职 O

16、r 退休（5）Tab键顺序简单应用题综合应用题斐波那契数列问题 *Add1* Dim f(19) As Integer *Add1* *Add2* f(i) = f(i - 1) + f(i - 2) *Add2* *Add3* Me.tData = f(19) *Add3*第40套题基本操作题简单应用题（1）Is Null（4）Not Like *书法*综合应用题（1）组合框控件（2）复选框控件（4） * Me.RecordSource = qemp *第41套题基本操作题简单应用题（2）已住天数: Date()-入住日期 应交金额: (Date()-入住日期)*价格（3）Like ?102

17、*（4）交叉表查询 楼号: Left(房间号,2)综合应用题（1）组合框控件 行来源类型：值列表 行来源：男;女（2）Forms!fEmp!tSS（3）=IIf(党员否,党员,非党员)（4）Private Sub bt1_Click() 动态设置窗体记录源属性 *Add1* Me.RecordSource = qEmp *Add1* 刷新窗体 Me.RequeryEnd SubPrivate Sub bt2_Click() 关闭窗口 *Add2* DoCmd.Close *Add2*End Sub第42套题基本操作题（5）只导出表结构定义简单应用题（1）Is Null（4）Not Like *

18、书法*综合应用题第43套题基本操作题简单应用题（1）Is Not Null（4）年龄为偶数的人员简历字段清空综合应用题Private Sub Form_Load() 设置bTitle标签为红色文本显示 *Add1* Me.bTitle.ForeColor = 255 *Add1*End SubPrivate Sub bt1_Click() *Add2* mdPnt acPreview *Add2*End Sub第44套题基本操作题（1）=#1950-1-1#简单应用题（1）Not Like *运动*（2）注意联系（3）Forms!fTmp!tSS综合应用题（3）=Left(姓名,1)Priva

19、te Sub bt1_Click() 预览方式输出报表rEmp *Add* DoCmd.OpenReport remp, acViewPreview *Add*End Sub第45套题基本操作题简单应用题（3）交叉表查询综合应用题（1）Tab键索引顺序Private Sub bt1_Click() 消息框提示报表输出(外观样式见题干图例) *Add* If MsgBox(报表预览, vbYesNo + vbQuestion, 确认) = vbYes Then *Add* 预览方式输出报表rEmp DoCmd.OpenReport rEmp, acViewPreview End IfEnd Su

20、b第46套题基本操作题（3）Month(入校时间)=9简单应用题综合应用题（4）=IIf(Mid(学号,5,2)=10,信息,管理)Private Sub cmdQuit_Click()*Add* DoCmd.Close*Add*End Sub第47套题基本操作题（4）输入掩码：999.99简单应用题（3）库存数量 tQuota!最高储备（4）表达式1: 单价*库存数量 总计综合应用题（4）密码 * Add1 * If name = cueb And pass = 1234 Then * Add1 * * Add2 * Me.tUser.SetFocus * Add2 * * Add3 * DoCmd.Close * Add3 *第48套题基本操作题（3）输入掩码：220V-00W简单应用题（1）Left(tStock!产品ID,1)= 2（2）库存金额: Round(Sum(tStock!单价*tStock!库存数量),0)（3）30000,达标,未达标)19