搜索
《程序设计基础access》实验报告专业班级：姓名：学号：任课教师：年月日1实验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窗口“标准”工具栏中单击“插入模块”命令按钮右侧的下拉箭头，并从下拉菜单中选择“模块”命令，可以创建新的标准模块。④在窗体设计视图或报表设计视图中，单击“窗体设计工具/设计”选项卡或“报表设计工具/设计”选项卡，再在“工具”命令组中单击“查看代码”命令按钮。⑤在窗体、报表的设计视图中，右键单击控件对象，再在打开的快捷菜单中选择“事件生成器”命令，打开“选择生成器”对话框，选择其中的“代码生成器”选项，单击“确定”按钮。或单击“属性表”对话框中的“事件”选项卡，选中某个事件并单2价属性框右边的省略号按钮，也可以打开“选择生成器”对话框，选择其中的“代码生成器”选项，单击“确定”按钮。⑥使用Alt+F11组合键，可以在Access主窗口中和VBE窗口之间进行切换。2、例7-2在VBE窗口中输入子过程s1并运行，查看程序运行结果。3①在VBE编辑器中，选择“插入”菜单“模块”命令，创建一个新的标准模块。②在标准模块中输入子过程s1。PrivateSubs1()Dima,b,cAsIntegera=Instr(5,WellcometoBeijing,e)b=Sgn(5=2)c=a+bDebug.printcEndSub③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s1，运行结果显示在立即窗口中，如图7.1所示。4、例7-5在VBE窗口中输入子过程s4并运行，查看程序运行结果。①在VBE编辑器中，选择“插入”菜单“模块”命令，创建一个新的标准模块。②在标准模块中输入子过程s4。PrivateSubs4()IfHour(Time())=8AndHour(Time())12ThenMsgBox上午好!ElseIfHour(Time())=12AndHour(Time())=18ThenMsgBox下午好!4ElseMsgBox欢迎下次光临!EndIfEndSub③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s4，运行结果显示在立即窗口中，如图7.4所示。例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+i5NextiDebug.printsEndSub③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s7，运行结果显示在立即窗口中，如图7.7所示。67-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=xmod10EndSub7③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s14_1，运行结果显示在消息框中，例7-27编写事件代码，完成以下功能：在“fSys”窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“User”和“Pass”，还有“确定”和“退出”两个命令按钮，名称分别为“Enter”和“Quit”。①在窗体加载时，“Pass”文本框内容以密码形式显示。②在“User”和“Pass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“sgub”，用户密码为“3456”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，欢迎进入系统！”，提示框中只有一个“确定”按钮，当单击“确定”按钮后，关闭该窗体；如果输入不正确，则提示框显示内容为“密码错误！”，同时清除“User”和“Pass”两个文本框中的内容，并将光标置于“User”文本框中。③当单击窗体上的“退出”按钮后，关闭当前窗体。操作步骤：①以设计视图打开“fSys”窗体。②在打开的“属性”对话框中单击“事件”选项卡，选择“加载”事件并打开VBE编辑器。在VBE编辑器中输入如下程序代码。8PrivateSubForm_Load()Me.Pass.InputMask=passwordEndSub③打开“确定”按钮的属性对话框，选择“事件”选项卡中的“单击”事件，打开VBE编辑器并在其中输入如下程序代码。PrivateSubEnter_Click()DimnameAsString,passAsStringname=Nz(Me!User)pass=Nz(Me!Pass)Ifname=sgubAndpass=3456ThenMsgBox密码输入正确，欢迎进入系统！,vbOKOnly+vbCritical,欢迎'DoCmd.CloseElseMsgBox密码错误！,vbOKOnlyMe!User=Me!Pass=Me!User.SetFocusEndIfEndSub④打开“退出”按钮的属性对话框，选择“事件”选项卡中的“单击”事件，打开VBE编辑器并在其中输入如下程序代码。PrivateSubQuit_Click()DoCmd.Close9EndSub五、实验总结与体会①VBA中的数据类型有哪些？BA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。数据类型类型标识符字节字符串型String$字符长度(0-65400)字节型Byte无1布尔型Boolean无2整数型Integer%2长整数型Long&4单精度型Single!4双精度型Double#8日期型Date无8公元100/1/1-99/12/31货币型Currency@8小数点无1410型Decimal变体型Variant无以上任意类型，可变对象型Object无4②输入框和消息框的返回值类型是什么？String类型在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。如果用户单击Cancel，则此函数返回一个长度为零的字符串()。③顺序结构、选择结构执行过程的特点是什么？顺序结构就是从头到尾一次执行每一个语句分支结构根据不同的条件执行不同的语句或者语句体循环结构就是重复的执行语句或者语句体,达到重复执行一类操作的目的