实验九 模块的应用(答案)

《实验九 模块的应用(答案)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验九模块的应用一、实验目的1．掌握模块的创建方法2．模块的应用二、实验内容（一）设计一个登录窗体（用户名和密码验证）---【IF的应用】【本题知识点】1、IF语句的应用2、MsgBox函数的应用3、简单事件驱动程序的编写要求如下：1.窗体如图S9-1，去掉导航按钮、记录选择器、滚动条和分隔线等；（可以利用实验八的验证密码窗体改造）2.标签的文字：用户登录，隶书、22号，红色；3.添加如图的控件，其中接收密码的文本框要设置成“密码”型；4.使用过程验证用户名和密码正确与否（正确用户名ASDF，密码12

2、345）5.如果任何一个输入不对，信息窗标题“验证”，提示“用户名或密码错!”，6.单击“重试”按钮时，将用户名和密码清空，焦点放在用户名中：（如图S9-2）7.若输入正确，打开实验八所定义的主控面板，并关闭当前窗体（验证）。图S9-1图S9-2【提示：】1）文本框设置成“密码”型，操作方法：在“属性”的“数据”中，“输入掩码向导”中选择“密码”如图。2）小窍门：如果你打开窗体时，焦点不是落在用户名的文本框，而是在其他地方，你可以在窗体设计视图中，单击【视图】菜单，选择【Tab键次序】命令，设置一下就

3、可以了【事件过程：】PrivateSub确定_Click()DimaIfForms![登录]!Text1="ASDF"AndForms![登录]!Text2="12345"ThenDoCmd.CloseDoCmd.OpenForm"主控面板"Elsea=MsgBox("用户名或密码错！",5+48+0,"验证")Ifa<>4ThenQuitElseText1=""Text2=""Text1.SetFocusEndIfEndIfEndSub（二）设计一个改变字体字形窗体---【CASE的应用】【本题知识

4、点】1、CASE语句、IF语句的应用2、控件复选框、选项按钮的应用3、事件驱动程序的编写要求如下：1.标签的文字：Access数据库程序设计，华文行楷、22号；2.标签的格式：字体粗细：正常，倾斜字体：否，下划线：否；3.能够通过选项组改变标签中字体；4.复选按钮改变字形；5.标签名称为：Label16.选项组名称为：Frame1，其中四个选项按钮分别为：Option1、Option2…7.复选按钮名称分别为：Check1、Check2图S9-3【事件过程：】PrivateSubFrame1_Clic

5、k()DimnAsIntegern=Forms![改变字体]![Frame1]SelectCasenCase1Forms![改变字体]![Label1].FontName="隶书"Case2Forms![改变字体]![Label1].FontName="仿宋"Case3Forms![改变字体]![Label1].FontName="揩体"Case4Forms![改变字体]![Label1].FontName="黑体"EndSelectEndSubPrivateSubCheck1_Click()IfFo

6、rms![改变字体]!Check1=-1ThenForms![改变字体]![Label1].FontBold=TrueElseForms![改变字体]![Label1].FontBold=FalseEndIfEndSubPrivateSubCheck2_Click()IfForms![改变字体]!Check2=-1ThenForms![改变字体]![Label1].FontItalic=TrueElseForms![改变字体]![Label1].FontItalic=FalseEndIfEndSubP

7、rivateSubCheck3_Click()IfForms![改变字体]!Check3=-1ThenForms![改变字体]![Label1].FontUnderline=TrueElseForms![改变字体]![Label1].FontUnderline=FalseEndIfEndSub（三）设计一个计算阶乘的窗体---【循环的应用】【本题知识点】1、循环语句FOR----Next的应用2、MsgBox函数的应用3、事件驱动程序的编写要求如下：1.标签的文字：计算阶乘，华文琥珀、24号，蓝色；2

8、.设计一个计算阶乘的窗体，如图S9-4；3.在文本框中输入1-10之间的任一整数n，4.单击“计算”按钮能算出n!,，并将结果显示在信息框，如图S9-5。图S9-4图S9-5【事件过程：】PrivateSubCommand1_Click()Dima,n,sn=Forms![计算阶乘]!Text1s=1Fori=1Tons=s*iNextii=MsgBox(s,vbInformation,"计算结果")‘或：i=MsgBox(s,,"计算结果")‘注意：v