《实验九模块的应用(答案).doc》由会员分享，可在线阅读，更多相关《实验九模块的应用(答案).doc（9页珍藏版）》请在金锄头文库上搜索。
1、实验九 模块的应用一、实验目的1掌握模块的创建方法2模块的应用二、实验内容（一）设计一个登录窗体（用户名和密码验证）-【IF的应用】【本题知识点】1、 IF语句的应用 2、 MsgBox函数的应用3、 简单事件驱动程序的编写要求如下：1. 窗体如图S9-1，去掉导航按钮、记录选择器、滚动条和分隔线等；（可以利用实验八的验证密码窗体改造）2. 标签的文字：用户登录，隶书、22号，红色；3. 添加如图的控件，其中接收密码的文本框要设置成“密码”型；4. 使用过程验证用户名和密码正确与否（正确用户名ASDF，密码12345）5. 如果任何一个输入不对，信息窗标题“验证”，提示“用户名或密码错!”，
2、6. 单击“重试”按钮时，将用户名和密码清空，焦点放在用户名中：（如图S9-2） 7. 若输入正确，打开实验八所定义的主控面板，并关闭当前窗体（验证）。图S9-1图S9-2【提示：】1）文本框设置成“密码”型，操作方法：在“属性”的“数据”中，“输入掩码向导”中选择“密码”如图。2）小窍门：如果你打开窗体时，焦点不是落在用户名的文本框，而是在其他地方，你可以在窗体设计视图中，单击【视图】菜单，选择【Tab键次序】命令，设置一下就可以了【事件过程：】Private Sub 确定_Click()Dim aIf Forms!登录!Text1 = ASDF And Forms!登录!Text2 = 1
3、2345 Then DoCmd.Close DoCmd.OpenForm 主控面板Else a = MsgBox(用户名或密码错！, 5 + 48 + 0, 验证) If a 4 Then Quit Else Text1 = Text2 = Text1.SetFocus End IfEnd IfEnd Sub（二）设计一个改变字体字形窗体-【CASE的应用】【本题知识点】1、 CASE语句、IF语句的应用2、 控件复选框、选项按钮的应用3、 事件驱动程序的编写要求如下：1. 标签的文字：Access数据库程序设计，华文行楷、22号；2. 标签的格式：字体粗细：正常，倾斜字体：否，下划线：否；3
4、. 能够通过选项组改变标签中字体；4. 复选按钮改变字形；5. 标签名称为：Label16. 选项组名称为：Frame1，其中四个选项按钮分别为：Option1、Option27. 复选按钮名称分别为：Check1、Check2图S9-3【事件过程：】Private Sub Frame1_Click()Dim n As Integern = Forms!改变字体!Frame1Select Case n Case 1 Forms!改变字体!Label1.FontName = 隶书 Case 2 Forms!改变字体!Label1.FontName = 仿宋 Case 3 Forms!改变字体!L
5、abel1.FontName = 揩体 Case 4 Forms!改变字体!Label1.FontName = 黑体End SelectEnd SubPrivate Sub Check1_Click()If Forms!改变字体!Check1 = -1 Then Forms!改变字体!Label1.FontBold = TrueElse Forms!改变字体!Label1.FontBold = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Forms!改变字体!Check2 = -1 Then Forms!改变字体!Label1.FontItal
6、ic = TrueElse Forms!改变字体!Label1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click() If Forms!改变字体!Check3 = -1 Then Forms!改变字体!Label1.FontUnderline = TrueElse Forms!改变字体!Label1.FontUnderline = FalseEnd IfEnd Sub（三）设计一个计算阶乘的窗体-【循环的应用】【本题知识点】1、 循环语句FOR- Next的应用2、 MsgBox函数的应用3、 事件驱动程序的编写要求如下：1. 标签
7、的文字：计算阶乘，华文琥珀、24号，蓝色；2. 设计一个计算阶乘的窗体，如图S9-4；3. 在文本框中输入1-10之间的任一整数n，4. 单击“计算”按钮能算出n!,，并将结果显示在信息框，如图S9-5。 图S9-4 图S9-5【事件过程：】Private Sub Command1_Click()Dim a, n, sn = Forms!计算阶乘!Text1s = 1For i = 1 To n s = s * iNext ii = MsgBox(s, vbInformation, 计算结果)或：i = MsgBox(s, , 计算结果) 注意： vbInformation可以省略，但逗号不能
8、省。Text1 = Text1.SetFocusEnd Sub（四）设计一个改变颜色窗体-【对象的引用】【本题知识点】1、 对象的引用，颜色、边框的设置2、 事件驱动程序的编写图S9-6【事件过程：】Private Sub Command1_Click()Forms!改变颜色!Label1.ForeColor = RGB(255, 0, 0) 红色End SubPrivate Sub Command2_Click()Forms!改变颜色!Label1.ForeColor = RGB(0, 255, 0) 绿色End SubPrivate Sub Command3_Click()Forms!改变
9、颜色!Label1.ForeColor = RGB(0, 0, 255) 蓝色End SubPrivate Sub Command4_Click()Forms!改变颜色!Label1.ForeColor = RGB(255, 255, 0) 黄色或者Forms!改变颜色!Label1.ForeColor = 65535 黄色End Sub有关颜色的属性设置方法见下表：颜色RGB 值nColor 值颜色RGB 值nColor 值白色255, 255, 25516777215绿色0, 255, 065280黑色0, 0, 00暗绿色0, 128, 032768灰色192, 192, 1921263
10、2256青色0, 255, 25516776960暗灰色128, 128, 1288421504暗青色0, 128, 1288421376红色255, 0, 0255蓝色0, 0, 25516711680暗红色128, 0, 0128暗蓝色0, 0, 1288388608黄色255, 255, 065535洋红色255, 0 ,25516711935暗黄色128, 128, 032896暗洋红色128, 0, 1288388736比如：thisform.text1.backcolor=16777215 &背景色为白色thisform.text1.forecolor=255&前景色为红色*（五）
11、设计检验数据并计算阶乘的窗体-【IF、循环的应用】【本题知识点】（较难）1、 循环语句FOR- Next的应用2、 IF语句的应用（goto跳转）3、 MsgBox函数的应用4、 较复杂事件驱动程序的编写窗体名称：“检验并计算”，要求如下：（在上题的基础上增加检验数据）1. 设计一个计算阶乘的窗体，如图S9-7；2. 标签的文字：计算阶乘，华文琥珀、24号，蓝色；3. 在文本框中输入1-10之间的任一整数n，若输入不在此范围，显示“数据超界，请重新输入！”，如图S9-8；4. 单击“重试”按钮，清除原来数据，焦点至于第一个文本框。5. 单击“计算”按钮能算出n!,，并将结果显示在信息框，如图S
12、9-5。图S9-7图S9-8【事件过程：】Private Sub Command1_Click()Dim a, n, sn = Forms!检验并计算!Text1If n 10 Or n 1 Then a = MsgBox(数据超界，请重新输入！, 5 + 48 + 0) If a = 4 Then Text1 = Text1.SetFocus Else Quit End If GoTo 100End Ifs = 1For i = 1 To n s = s * iNext ii = MsgBox(s, , 计算结果)Text1 = Text1.SetFocus100:End Sub*（六）设计
13、按学号查询的窗体【综合应用题】【本题知识点】（综合运用、难）1、 窗体的设计，控件组合框的应用2、 IF语句的应用3、 MsgBox函数的应用4、 带参数的查询设计（条件涉及对另一个对象控件的引用）5、 事件驱动程序的编写6、 涉及窗体、查询、驱动程序（或宏）之间的综合运用要求如下：1. 窗体如图S9-9，去掉导航按钮、记录选择器、滚动条和分隔线等；2. 添加如图的控件，其中组合框的数据源选自“A班学生信息”的学号；3. 查询的按钮使用图片“望远镜1” 如图S9-104. 单击按钮，弹出满足条件的记录，在窗体中显示。【提示：】（分4步进行）1) 创建一个窗体，用于选择学号（输入窗体） 图S9-9 图S9-102) 创建一个查询“按学号查询”，条件使用“生成器”完成，使他与输入窗体中的组合框所选学号形成关联图S9-113) 创建一个窗体，由于存放查询结果（输出窗体），把它的数据源设置（选择）为上述查询；图S9-124) 创建一个宏（或编写事件过程），-为“按学号查询”（输入窗体）中的按钮（望远镜）设置驱动。图S9-13
