VBA代码2015年3月.docx

第二套fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为tData的文本框内并输出到外部文件保存；单击打开表命令按钮（名为btnQ），调用宏对象mEmp以打开数据表tEmp。第一空(Add1)：Dim f(19) As Integer第二空(Add2)：f(i)=f(i-1)+f(i-2)第三空(Add3)：tData=f(19)第三套窗体标题属性为系统当前日期第一空(Add):Caption=Date()第四套第一空(Add)语句写在它下面（设置窗体bTitle标签为红色文本显示）bTitle.ForeColor = 255第二空(Add)语句写在它下面（预览输出） mdPnt acViewPreview第五套单击刷新按钮（名为bt1），事件过程动态设置窗体记录源为查询对象qEmp，实现窗体数据按性别条件动态显示退休职工的信息；单击退出按钮（名为bt2），调用设计好的宏mEmp来关闭窗体。第一空(Add):RecordSource = qEmp第七套窗体图片文件test.bmp设置为窗体fEmp的背景。要求背景图像文件当前路径必须用CurrentProject.Path获得。第一空(Add):Picture=CurrentProject.Path+test.bmp第八套窗体标题属性*年职工信息输出,其中*为系统当前年 第一空(Add):Caption=Year(Date)&年职工信息输出 第一空(Add):If MsgBox(报表预览,vbYesNo+vbQuestion,确认)=vbYes Then第十套窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。另外，在窗体中还有修改、保存和退出三个命令按钮，名称分别为CmdEdit、CmdSave和cmdquit。当单击修改按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时保存按钮变为可用；在口令和确认口令文本框中输入口令信息后，单击保存按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将保存命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；若在两个文本框中输入的信息不同，则显示提示框，显示内容为请重新输入口令！，提示框中只有一个确定按钮。单击窗体上的退出按钮，关闭当前窗体。第一空(Add1):CmdSave.Enabled=False第二空(Add2):tUser_1.Enabled=False第三空(Add3):MsgBox 请重新输入口令！,vbOKquit第四空(Add4):DoCmd.Close关闭窗体DoCmd.Close第十二套（4）窗体中报表输出和退出按钮的功能是单击报表输出按钮（名为bt1）后，首先将退出按钮标题变为红色，然后以预览方式打开报表rEmp；单击退出按钮（名为bt2）调用宏mEmp。第一空(Add1): Caption = Year(Date) & 年度报表输出字体变红:bt2控件名.ForeColor = 255打开报表:DoCmd.OpenReport rEmp, acViewPreview错误处理: ErrHanle:第十三套（4）单击报表输出按钮（名为bt1），调用事件代码先设置退出按钮标题为粗体显示，然后以预览方式打开报表rEmp；单击退出按钮（名为bt2），调用设计好的宏mEmp来关闭窗体。要求窗体的系统年要两个位数的:Caption = Format(Date(), yy) & 年度报表输出字体变粗:bt2.FontBold = True第十四套（4）fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能：计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为tData文本框内并输出到外部文件保存。单击打开表命令按钮（名为btnQ），代码调用宏对象mEmp以打开数据表tEmp。窗体标题为标签bTitle的标题:Caption = bTitle.Caption第二空(Add2): For i = 1 To 10000 If sushu(i) Then n = n + 1 If i mn Then mn = i End If End If Next i代码调用宏对象mEmp以打开数据表tEmp：DoCmd.RunMacro mEmp第十五套（4）在fEmp窗体上单击男性最大年龄命令按钮（名为btnP），实现以下功能。查找表对象tEmp中男性员工的最大年龄，将其输出显示在控件tData内；统计年龄在30以下（不含30）男性员工的人数，将其值写入外部文件out.dat中。单击打开员工报表命令按钮（名为btnQ），通过代码调用宏对象mEmp以打开报表rEmp。第一空(Add1):Caption = bTitle.Caption第二空(Add2):MAgeMax = rs.Fields(年龄)第三空(Add3):rs.MoveNext第四空(Add4):DoCmd.RunMacro mEmp第十七套 单击命令按钮bList，要求运行宏对象m1；单击事件代码已提供，请补充完整。窗体加载时，将“Tda”标签标题设置为“YYYY年雇员信息”，其中 “YYYY”为系统当前年份（要求使用相关函数获取）YYYY年雇员信息:Tda.Caption = Year(Date) & 年雇员信息运行宏对象m1:DoCmd.RunMacro m1第十八套（3）在窗体加载事件中，实现重置窗体标题为标签“tTitle”的标题内容。（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为“注意”，提示文字为“查询项目或查询内容不能为空！”，提示框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud”表中的全部记录；单击“CmdClear”命令按钮，将清空控件“cItem”和“TxtDetail”中的值。第一处填写(Add1)：Ldetail.Caption = cItem & 内容:第二处填写(Add2)：fDetail.Form.RecordSource = tStud第三处填写(Add3)：MsgBox “查询项目或查询内容不能为空！”,vbOKOnly,注意第四处填写(Add4)：aption = tTitle.Caption第二十套(5）按照以下窗体功能，补充事件代码设计。在窗体中有一个组合框控件和一个文本框控件，名称分别为“CItem”和“TxtDetail；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“CmdList”、“CmdRefer”和“CmdClear”。在“CItem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容不能为空！”，消息框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“tStud表中的全部记录；单击“CmdClear”命令按钮，将“cItem”和“TxtDetail两个控件中的值清空。第一处填写(Add1): Ldetail.Caption = cItem & 内容:第二处填写(Add2): fDetail.Form.RecordSource = tStud第三处填写(Add3):MsgBox 查询项目和查询内容不能为空！, vbOKOnly, “注意”第二十一套在窗体中还有修改和保存两个命令按钮，名称分别为CmdEdit和CmdSave，其中保存命令按钮在初始状态为不可用，当单击修改按钮后，保存按钮变为可用。当单击保存按钮后，输入焦点移到修改按钮。此时，程序可以修改已有的用户相关信息，现已编写了部分VBA代码，请补充完整。第一处填写(Add1): CmdSave.Enabled = True第二处填写(Add2): DoCmd.GoToControl cmdedit第二十三套(1）打开窗体时设置窗体标题为XXXX年信息输出显示，其中XXXX为系统当前年份（要求用相关函数获取），例如，2013年信息输出。窗体打开事件代码已提供，请补充完整。(4)单击窗体“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方式打开报表“rEmp”；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。第一处填写(Add1): Form.Caption=Year(Date() & 年信息输出第二处填写(Add2): DoCmd.OpenReport rEmp,acViewPreview第二十四套在窗体中有一个”退出”命令按钮,名称为”CmdQuit”,单击该按钮，弹出提示框。提示框标题为”提示”,提示框内容为”确认退出？”,并显示问号图标；提示框中有两个按钮，分别为”是”和”否”,单击”是”按钮,关闭消息框和当前窗体,单击”否”按钮，关闭消息框.请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。第一处填写(Add1): If MsgBox(确认退出？, vbYesNo + vbQuestion, 提示) = vbYes Then第二十五套（4）在窗体加载时，tPass文本框的内容以密码形式显示。窗体加载事件代码已给出，请补充完整。（5）按照以下窗体功能，补充事件代码设计。在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”,还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示正确提示框；如果输入不正确，则提示框显示内容为“密码错误！”,同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中,当单击窗体上的“退出”按钮后，关闭当前窗体。第一处填写(Add1):tPass.InputMask = PassWord第二处填写(Add2):If pass=1234 And name=cueb Then第三处填写(Add3):tUser.SetFocus 第四处填写(Add4):DoCmd.Close第二十六套（3）在窗体加载事件中，实现重置窗体标题为当前年月加标签tTitle的标题内容，如2013年06月xxxx。其中，当前年月要求用函数获得，xxxx部分是标签tTitle的标题内容。（4）试根据以下窗体功能要求，对已给的事件过程进行代码补充，并运行调试。在窗体中有一个组合框控件和一个文本框控件，名称分别为CItem和TxtDetail；有两个标签控件，名称分别为Label3和Ldetail；还有三个命令按钮，名称分别为CmdList、CmdRefer和CmdClear。在CItem组合框中选择某一项目后，Ldetail标签控件将显示出所选项目名加上内容：。在TxtDetail文本框中输入具体项目值后，单击CmdRefer命令按钮，如果CItem和TxtDetail两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中没有值，显示提示框，提示框标题为注意，提示文字为查询项目或查询内容不能为空！，提示框中只有一个确定按钮；单击CmdList命令按钮，在子窗体中显示tStud表中的全部记录；单击CmdClear命令按钮，将清空控件cItem和TxtDetail中值。第一处填写(Add1)：Ldetail.Caption = cItem & 内容：第二处填写(Add2)：fDetail.Form.RecordSource = tStud第三处填写(Add3)：MsgBox 查询项目或查询内容不能为空！, vbOKOnly, 注意第四处填写(Add4)：Caption = Year(Date) & 年 & Month(Date) & 月 & tTitle.Caption第二十七套（4）在窗体对象”fEmp”上有”刷新”和”退出”两个命令按钮,名称分别为”bt1”和”bt2”.单击”刷新”按钮,窗体记录源改为查询对象”qEmp”:单击”退出”按钮,关闭窗体.现已编写了部分VBA代码,请按照VBA代码中指示将代码补充完整。第一处填写(Add1)：RecordSource=qEmp第二处填写(Add2)：DoCmd.Close第二十九套（3）在窗体加载事件中实现代码重置窗体标题为标签bTitle的标题内容。（4）试根据以下窗体功能要求,对已给的事件过程进行代码补充,并运行调试.在fEmp窗体上单击输出命令按钮（名为btnP）,计算满足表达式1+2+3+n=30000的最大n值,并将n的值显示在窗体上名为tData的文本框内并输出到外部文件保存.单击打开表命令按钮（名为btnQ），代码调用宏对象mEmp以打开数据表tEmp。第一处填写(Add1)：Caption = bTitle.Caption第二处填写(Add2)：DoCmd.RunMacro mEmp第三处填写(Program)： sum = 0 n = 0 Do While sum = 30, 老员工,普通员工)40套简单应用（4）：补充窗体“fTest”上“test1”按钮（名为“bt1”）的单击事件代码，实现以下功能：当单击按钮“test1”，将文本框中输入的内容与文本串“等级考试测试”连接并消除连接串的前导和尾随空白字符，用标签“bTitle”显示连接结果。第一处填写(Add1)：bTitle.Caption = Trim(tText + 等级考试测试)第四十一套加载窗体时，代码将“bTitle”标签的标题重置为“员工最大年龄差为XXX”，其中“XXX”是从“tEmp”表中获取计算得到；单击“报表输出”按钮，事件代码会弹出下图显示的消息框，以选择是否进行预览报表“rEmp”；单击“退出”按钮，调用设计好的宏“mEmp”来关闭窗体。根据以上描述，将VBA代码补充完整。 第一处填写(Add1)：bTitle.Caption=员工最大年龄差为 & (DMax(年龄,temp)-DMin(年龄,temp)第二处填写(Add2)：If MsgBox(报表预览,vbYesNo+vbQuestion,确认)=vbYes Then第四十二套在窗体相关事件中，代码重置窗体标题为“XXXX年度党员学生信息”，这里XXXX为系统日期四位当前年；代码设置窗体的记录源为表对象“tStud”中的党员信息。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。在窗体中有一个“退出”命令按钮，名称为“CmdQuit”,其功能为关闭“fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。第一处填写(Add1)：Caption=Year(Date) & 年度党员学生信息第二处填写(Add2)：RecordSource=select * from tstud where 党员否第三处填写(Add3)：DoCmd.Close第四十三套试根据以下窗体功能和报表输出要求，补充已给事件代码，并运行调试。在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。 窗体加载时，重置“bTitle”标签的标题为“非团员人数为XX”,这里XX为从表查询计算得到；在输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“csy”，用户密码为“1129”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，打开报表！”，单击“确定”按钮关闭提示框后，打开“rStud”报表，代码设置其数据源输出非团员学生信息；如果输入不正确，则提示框显示“密码错误！”，同时清除“tUser”和“tPass”两个文本框中的内容，并将光标移至“tUser”文本框中。当单击窗体上的“退出”按钮后，关闭当前窗体。第一处填写(Add1)：bTitle.Caption=非团员人数为& DCount(*,tstud,Not 团员否)第二处填写(Add2)：If tPass=1129 And tUser=csy Then第三处填写(Add3)：tUser.SetFocus第四处填写(Add4)：Me.RecordSource= select * from tstud where Not 团员否第四十四套单击该按钮，其事件代码预览方式打开“rReader”报表，条件输出高级读者（职称为“教授”和“副教授”的读者）借阅信息。窗体加载时设置窗体标题属性为系统当前日期，设置“fTitle”标签的标题为“读者借阅信息”。第一处填写(Add1)：Caption=Date()第二处填写(Add2)：fTitle.Caption=读者借阅信息第三处填写(Add3)：DoCmd.OpenReport rReader,acViewPreview, ,职称=教授 or 职称=副教授第四十五套试根据以下窗体功能和报表输出要求，补充已给事件代码，并运行调试。在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。 窗体加载时，重置窗体标题为“系统登录”；在输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，打开报表！”,单击“确定”按钮关闭提示框后，打开“rStud”报表输出团员学生信息；如果输入不正确,则提示框显示“密码错误!”,同时清除“tUser”和“tPass”两个文本框中内容,并将光标移至“tUser”文本框中。当单击窗体上“退出”按钮后,关闭当前窗体。第一处填写(Add1)：Caption=系统登录第二处填写(Add2)：If tUser=cueb And tPass=1234 Then第三处填写(Add3)：Me!tUser.SetFocus第四处填写(Add4)：Me.RecordSource= select * from tstud where 团员否Access上机难点类型题汇总基本操作(表)函数类型题集合：1、上一年度五月一日以前（含）的日期（规定：本年度年号必须用函数获取）。 =1 and Month(入校日期)=2007-1-1 and =30 职务条件行写：经理14、将编号字段改名为工号，并设置为主键；按所属部门修改工号，修改规则为：部门01的工号首字符为1，部门02首字符为2，依次类推。 Right(所属部门,1)+Right(工号,5)15、上机20题：将北京五中毕业学生的学号第3、4位改为09。（最后别忘运行）Left(学号,2)+09+Right(学号,4) 或 Left(学号,2) & 09 & mid(学号,4)16、上机21题:分析员工聘用时间,将截止到2008年聘用期在10年(含10年)以上员工其说明字段值设置为老职工。 用更新查询做：聘用时间段条件写：=(Select Avg(年龄) From 员工表 )-1 And =16 DateSerial(Year(Now()+1,Month(Now(),1)23、设置“tQuota”表的有效性规则为:产品最高储备是最低储备10倍或10倍以上;对应有效性文本为“请合理设置产品最高最低储备值”“tQuota”表的属性有效性规则栏中输入：最高储备=10*最低储备 下面有效性文本输入：请合理设置产品最高最低储备值简单应用(查询)类型题集合：一、字符串函数类型题：1、姓名字段的第一个字符为姓，剩余字符为名。将姓名分解为姓和名两部分。字段行输入：姓:Left(姓名),1)字段行中输入：名:Mid(姓名,2)2、房间号的前两位为楼号。字段行中输入：楼号:Left(房间号,2)3、查找身份证字段第4位至第6位值为102的纪录。条件行中输入：Mid(身份证,4,3)= 1024、将编号的第一个字符更改为1更新到中输入：1 & Mid(编号,2)5、姓名字段的第一个字符为姓。要求将学生学号和学生的姓组合在一起，追加到目标表的标识字段中。字段行中输入：标识:学号+Left(姓名,1)6、查找姓名为三个字的记录。 条件行中输入：Len(姓名)= 37、上机3题:星期一由(预约日期判断)Weekday(预约日期)=28、上机17题:查找5号入校的学生：DaY(入校日期)=59、上机21题:删除预约日期为10月份中20天以后(含20天)的记录.Month(预约日期)=10 And DaY(预约日期)=2010、上机21题:查找上半年(还有个题下半年)入校学生记录.Month(预约日期)=711、要求：“平均分差值”以整数形式显示（使用函数实现）平均分差值: Round(平均分-(select avg(成绩) from tscore),0)，总计行选择Expression12、创建一个查询，当运行该查询时，应显示参数提示信息“请输入爱好”，输入爱好后，在简历字段中查找具有指定爱好的学生在简历字段的条件中输入：Like *+请输入爱好+*13、创建一个查询，查找平均成绩低于所有学生平均成绩的学生信息，并显示“学号”、“平均成绩”和“相差分数”三列内容，其中“平均成绩”和“相差分数”两列数据由计算得到，所建查询命名为“qT2”在第二个字段中输入平均成绩:成绩，总计中选择平均值，条件中输入：=21，并且在或中输入：Month(出生日期)=6 and Day(出生日期)=317、创建一个查询，将临时表对象“tTemp”中年龄为偶数的主管人员的“简历”字段清空，在简历字段的更新到中输入：Null，在第二个字段中输入：年龄 Mod 2，条件中输入：0，再选择职务字段，条件中输入：主管，运行查询18、查找并显示所选课程均不及格的学生信息：第三字段选课程编号在总计中选择计数，取消显示的勾，条件中输入：3，19、统计没有选课的学生人数：择tGrade和tStudent表，点击添加按钮，关闭显示表窗体。右击两表之间的联系，选择联接属性，选择包括tStudent中的所有记录和tGrade中联接字段相等的那些记录。第一字段输入：未选数:学号，选择tStudent表，在总计中选择计数，第二字段选择课程编号，在总计中选择Group By，取消显示的勾，条件中输入：Is Null，20、查找第三季度入校的学生信息： 第四个字段Month(入校时间)，显示的勾去掉，条件输入：=721、查找年龄在所有学生平均年龄上下2岁（含）范围内的：第四个字段输入表达式：年龄-(select avg(年龄) from tStud)，显示的勾去掉，条件中输入：Between -2 And 222、查找库存数量距离对应最高和最低储备中间值最近的产品信息： 在新的第六个字段中输入：Abs(库存数量-(最高储备+最低储备)/2) 把工具栏汇总落下，在第六个字段对应总计行选Expression，它的下一行排序选升序，最后在工具栏上限值写123、查找“最高储备”和“最低储备”相差值低于所有产品最高最低储备差平均值的产品在第三个字段输入：在第三个字段输入：Sum(最高储备-最低储备)，单击显示/隐藏组中的汇总按钮，在总计里选择Expression,将显示的勾去掉，在条件中输入：53、统计这个客人已住天数。字段行中输入：已住天数:Date()-入住日期4、查找三月份上课的信息。条件行中输入：Month(上课日期)=3三、统计函数类型题：1、平均成绩取整要求用Round函数实现。字段行中输入：Round(Avg(成绩)2、统计最高分成绩与最低分成绩的差。字段行中输入：最高分与最低分的差:Max(成绩)-Min(成绩)3、计算并输出教师最大年龄与最小年龄的差值，字段标题为m_age。字段行中输入：m_age:Max(年龄)-Min(年龄)4、最高储备与最低储备相差最小的数量并输出，标题显示为m_datam_data:Min(最高储备-最低储备)5、成绩均在80分以上（含80）学生.Min(成绩)806、平均分最高的的前3位学生.在成绩字段总计选：平均值，排序选：降序，工具栏编辑框写：3 7、当运行查询时，应分别显示提示信息”最低价”和”最高价”.在价格条件行中写:最低价 and 最高价四、SQL子查询类型题：1、查找成绩低于所有课程总平均分的学生信息。条件行中输入：(select Avg(成绩) from tScore)2、查找年龄小于平均年龄的学生。条件行中输入：(select Avg(单价) from tBook)4、查找没有任何选课信息的学生姓名字段。条件行中输入：Not In (select 学号 from tScore)5、查找还未被选修的课程的名称段。条件行中输入：Not In (select 课程号 from tScore)五、其他类型题：1、要求引用窗体对象fTest上控件tSex的值。条件行中输入：Forms!fTest!tSex2、查找并显示有书法或绘画爱好学生。条件行中输入：Like *书法* Or Like *绘画*3、查找姓王病人的基本信息。条件行中输入：Like 王*4、姓名含有红字的记录。条件行中输入：Like *红*5、姓李且名字第三字为明的记录。条件行中输入：Like 李?明6、查找并显示入校时间非空的。条件行中输入：Is Not Null7、查找并显示简历信息为空的。条件行中输入：Is Null8、年龄为偶数的。条件行中输入：年龄 Mod 2=09、年龄为奇数的。条件行中输入：年龄 Mod 20 或 年龄 Mod 2=110、当运行