实验九 模块应用研究(答案).docVIP

实验九 模块的应用 一、实验目的 1．掌握模块的创建方法 2．模块的应用 二、实验内容 （一）设计一个登录窗体（用户名和密码验证） ---【IF的应用】 【本题知识点】 IF语句的应用 MsgBox函数的应用 简单事件驱动程序的编写 要求如下： 窗体如图S9-1，去掉导航按钮、记录选择器、滚动条和分隔线等；（可以利用实验八的验证密码窗体改造） 标签的文字：用户登录，隶书、22号，红色； 添加如图的控件，其中接收密码的文本框要设置成“密码”型； 使用过程验证用户名和密码正确与否（正确用户名ASDF，密码12345） 如果任何一个输入不对，信息窗标题“验证”，提示“用户名或密码错!”， 单击“重试”按钮时，将用户名和密码清空，焦点放在用户名中：（如图S9-2） 若输入正确，打开实验八所定义的主控面板，并关闭当前窗体（验证）。 图S9-1 图S9-2 【提示：】 1）文本框设置成“密码”型，操作方法： 在“属性”的“数据”中，“输入掩码向导”中选择“密码”如图。 2）小窍门：如果你打开窗体时，焦点不是落在用户名的文本框，而是在其他地方，你可以在窗体设计视图中，单击【视图】菜单，选择【Tab键次序】命令，设置一下就可以了 【事件过程：】 Private Sub 确定_Click() Dim a If Forms![登录]!Text1 = ASDF And Forms![登录]!Text2 = 12345 Then DoCmd.Close DoCmd.OpenForm 主控面板 Else a = MsgBox(用户名或密码错！, 5 + 48 + 0, 验证) If a 4 Then Quit Else Text1 = Text2 = Text1.SetFocus End If End If End Sub （二）设计一个改变字体字形窗体---【CASE的应用】 【本题知识点】 CASE语句、IF语句的应用 控件复选框、选项按钮的应用 事件驱动程序的编写 要求如下： 标签的文字：Access数据库程序设计，华文行楷、22号； 标签的格式：字体粗细：正常，倾斜字体：否，下划线：否； 能够通过选项组改变标签中字体； 复选按钮改变字形； 标签名称为：Label1 选项组名称为：Frame1，其中四个选项按钮分别为：Option1、Option2… 复选按钮名称分别为：Check1、Check2 图S9-3 【事件过程：】 Private Sub Frame1_Click() Dim n As Integer n = Forms![改变字体]![Frame1] Select Case n Case 1 Forms![改变字体]![Label1].FontName = 隶书 Case 2 Forms![改变字体]![Label1].FontName = 仿宋 Case 3 Forms![改变字体]![Label1].FontName = 揩体 Case 4 Forms![改变字体]![Label1].FontName = 黑体 End Select End Sub Private Sub Check1_Click() If Forms![改变字体]!Check1 = -1 Then Forms![改变字体]![Label1].FontBold = True Else Forms![改变字体]![Label1].FontBold = False End If End Sub Private Sub Check2_Click() If Forms![改变字体]!Check2 = -1 Then Forms![改变字体]![Label1].FontItalic = True Else Forms![改变字体]![Label1].FontItalic = False End If End Sub Private Sub Check3_Click() If Forms![改变字体]!Check3 = -1 Then Forms![改变字体]![Label1].FontUnderline = True Else Forms![改变字体]![Label1].FontUnderline = False End If End Sub （三）设计一个计算阶乘的窗体---【循环的应用】 【本题知识点】 循环语句FOR---- Next的应用 MsgBox函数的应用 事件驱动程序的编写 要求如下： 标签的文字：计算阶乘，华文琥珀、24号，