实验7实践报告.doc

《ess》实验报告专业班级:姓名:学号:任课教师:年月日实验7VBA程序设计基础一、实验目的与要求1、熟悉VBE编辑器的使用。2、掌握VBA的基本语法规则、各种运算符、函数的使用方法。3、掌握VBA的3种流程控制结构:顺序结构、选择结构和循环结构。4、熟悉过程和模块的概念、创建及使用方法。5、掌握为窗体、报表或控件编写VBA事件过程代码的方法。2、二、预****与准备1、实验原理:自己总结2、实验设备:win7,access2010三、实验内容7-1启动VBE编辑器。启动VBE编辑器的常用方法如下。①单击“创建”选项卡,再在“宏与代码”命令组中单击“模块”、“类模块”或“VisualBasic”命令按钮,均可以打开VBE窗口。②在导航窗格的“模块”组中双击要显示的模块名称,就会打开VBE窗口并显示该模块的内容。③在“数据库工具”选项卡中,单击“宏”命令组中的“VisualBasic”命令按钮,打开VBE窗口。在VBE窗口中,选择“插入”菜单的“模块”选项,或在VBE窗口“标准”工具栏中单击“插入模块”命令按钮右侧的下拉箭头,并从下拉菜单中选择“模块”命令,可以创建新的标准模块。④在窗体设计视图或报表设计视图中,单击“窗体设计工具/设计”选项卡或“报表设计工具/设计”选项卡,再在“工具”命令组中单击“查看代码”命令按钮。⑤在窗体、报表的设计视图中,右键单击控件对象,再在打开的快捷菜单中选择“事件生成器”命令,打开“选择生成器”对话框,选择其中的“代码生成器”选项,单击“确定”按钮。或单击“属性表”对话框中的“事件”选项卡,选中某个事件并单价属性框右边的省略号按钮,也可以打开“选择生成器”对话框,选择其中的“代码生成器”选项,单击“确定”按钮。⑥使用Alt+F11组合键,ess主窗口中和VBE窗口之间进行切换。2、例7-2在VBE窗口中输入子过程s1并运行,查看程序运行结果。①在VBE编辑器中,选择“插入”菜单“模块”命令,创建一个新的标准模块。②在标准模块中输入子过程s1。PrivateSubs1()Dima,b,cAsIntegera=Instr(5,"etoBeijing","e")b=Sgn(5>=2)c=a+③在VBE编辑器中单击“标准”工具栏上的“运行”按钮,选择运行子过程s1,运行结果显示在立即窗口中,。4、例7-5在VBE窗口中输入子过程s4并运行,查看程序运行结果。①在VBE编辑器中,选择“插入”菜单“模块”命令,创建一个新的标准模块。②在标准模块中输入子过程s4。PrivateSubs4()IfHour(Time())>=8AndHour(Time())<12ThenMsgBox"上午好!"ElseIfHour(Time())>=12AndHour(Time())<=18ThenMsgBox"下午好!"ElseMsgBox"欢迎下次光临!"EndIfEndSub③在VBE编辑器中单击“标准”工具栏上的“运行”按钮,选择运行子过程s4,运行结果显示在立即窗口中,。例7-6在VBE窗口中输入子过程s5并运行,查看程序运行结果。①在VBE编辑器中,选择“插入”菜单“模块”命令,创建一个新的标准模块。②在标准模块中输入子过程s5。7-8求1+2+3+4+…+100的和。①在VBE编辑器中,选择“插入”菜单“模块”命令,创建一个新的标准模块。②在标准模块中编写子过程s7,求1+2+3+4+…+100的和。PrivateSubs7()Dims,iAsIntegers=0Fori=1to100Step1s=s+③在VBE编辑器中单击“标准”工具栏上的“运行”按钮,选择运行子过程s7,运行结果显示在立即窗口中,。7-15在VBE窗口中输入两个子过程s14_1和s14_2并运行,查看程序运行结果。①在VBE编辑器中,选择“插入”菜单“模块”命令,创建一个新的标准模块。②在标准模块中输入子过程s14_1和s14_2。PrivateSubs14_1()DimaAsInteger,bAsIntegera=12:b=32Calls14_2(a,b)MsgBoxa&Chr(32)&bEndSubPublicSubs14_2(xAsInteger,ByValyAsInteger)y=ymod10x=xmod10EndSub③在VBE编辑器中单击“标准”工具栏上的“运行”按钮,选择运行子过程s14_1,运行结果显示在消息框中,例7-27编写事件代码,完成以下功能:在“fSys”窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“User”和“Pass”,还有“确定”和“退出”两个命令按钮,名称分别为“Enter”和“