实验7实践报告Word文档格式.docx

1、二、预习与准备1、实验原理:自己总结2、实验设备:win7,access2010三、实验内容7-1 启动VBE编辑器。启动VBE编辑器的常用方法如下。 单击“创建”选项卡，再在“宏与代码”命令组中单击“模块”、“类模块”或“Visual Basic”命令按钮，均可以打开VBE窗口。 在导航窗格的“模块”组中双击要显示的模块名称，就会打开VBE窗口并显示该模块的内容。 在“数据库工具”选项卡中，单击“宏”命令组中的“Visual Basic”命令按钮，打开VBE窗口。在VBE窗口中，选择“插入”菜单的“模块”选项，或在VBE窗口“标准”工具栏中单击“插入模块”命令按钮右侧的下拉箭头，并从下拉菜单

2、中选择“模块”命令，可以创建新的标准模块。 在窗体设计视图或报表设计视图中，单击“窗体设计工具/设计”选项卡或“报表设计工具/设计”选项卡，再在“工具”命令组中单击“查看代码”命令按钮。 在窗体、报表的设计视图中，右键单击控件对象，再在打开的快捷菜单中选择“事件生成器”命令，打开“选择生成器”对话框，选择其中的“代码生成器”选项，单击“确定”按钮。或单击“属性表”对话框中的“事件”选项卡，选中某个事件并单价属性框右边的省略号按钮，也可以打开“选择生成器”对话框，选择其中的“代码生成器”选项，单击“确定”按钮。 使用Alt+F11组合键，可以在Access主窗口中和VBE窗口之间进行切换。例7-

3、2 在VBE窗口中输入子过程s1并运行，查看程序运行结果。 在VBE编辑器中，选择“插入”菜单“模块”命令，创建一个新的标准模块。 在标准模块中输入子过程s1。Private Sub s1（） Dim a,b,c As Integer a=Instr（5,Wellcome to Beijing,e） b=Sgn（5=2） c=a+b Debug.print cEnd Sub 在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s1，运行结果显示在立即窗口中，如图7.1所示。4、例7-5 在VBE窗口中输入子过程s4并运行，查看程序运行结果。 在标准模块中输入子过程s4。Priva

4、te Sub s4（） If Hour（Time（）=8 And Hour（Time（）=12 And Hour（Time（）=18 Then下午好! Else 欢迎下次光临! End IfEnd Sub 在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s4，运行结果显示在立即窗口中，如图7.4所示。例7-6 在VBE窗口中输入子过程s5并运行，查看程序运行结果。 在标准模块中输入子过程s5。7-8 求1+2+3+4+100的和。 在标准模块中编写子过程s7，求1+2+3+4+100的和。Private Sub s7（） Dim s,i As Integer s=0 For

5、i=1 to 100 Step 1 s=s+i Next i Debug.print s 在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s7，运行结果显示在立即窗口中，如图7.7所示。7-15 在VBE窗口中输入两个子过程s14_1和s14_2并运行，查看程序运行结果。 在标准模块中输入子过程s14_1和s14_2。Private Sub s14_1 （） Dim a As Integer,b As Integer a=12:b=32 Calls14_2（a,b） MsgBox a &Chr（32） & bPublic Sub s14_2（x As Integer,ByVa

6、l y As Integer） y=y mod 10 x=x mod 10 在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s14_1，运行结果显示在消息框中， 例7-27 编写事件代码，完成以下功能：在“fSys”窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“User”和“Pass”，还有“确定”和“退出”两个命令按钮，名称分别为“Enter”和“Quit”。 在窗体加载时，“Pass”文本框内容以密码形式显示。 在“User”和“Pass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“sgub”，用户

7、密码为“3456”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，欢迎进入系统！”，提示框中只有一个“确定”按钮，当单击“确定”按钮后，关闭该窗体；如果输入不正确，则提示框显示内容为“密码错误！”，同时清除“User”和“Pass”两个文本框中的内容，并将光标置于“User”文本框中。 当单击窗体上的“退出”按钮后，关闭当前窗体。操作步骤： 以设计视图打开“fSys”窗体。 在打开的“属性”对话框中单击“事件”选项卡，选择“加载”事件并打开VBE编辑器。在VBE编辑器中输入如下程序代码。Private Sub Form_Load（） Me.Pass.InputMask = pa

8、ssword 打开“确定”按钮的属性对话框，选择“事件”选项卡中的“单击”事件，打开VBE编辑器并在其中输入如下程序代码。Private Sub Enter_Click（） Dim name As String, pass As String name = Nz（Me!User） pass = Nz（Me!Pass） If name = sgub And pass = 3456 Then MsgBox 密码输入正确，欢迎进入系统！, vbOKOnly + vbCritical, 欢迎 DoCmd.Close Else密码错误！, vbOKOnly Me!User = Pass = User.S

9、etFocus 打开“退出”按钮的属性对话框，选择“事件”选项卡中的“单击”事件，打开VBE编辑器并在其中输入如下程序代码。Private Sub Quit_Click（） DoCmd.Close五、实验总结与体会 VBA中的数据类型有哪些？BA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。数据类型类型标识符字节字符串型String$字符长度（0-65400）字节型Byte无1布尔型Boolean2整数型Integer%长整数型Long&4单精度型Single!双精度型Double#8日期型Date8公元100/1/1-99/12/31货币型Currency小数点型Decimal14变体型Variant以上任意类型，可变对象型Object 输入框和消息框的返回值类型是什么？String 类型在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。如果用户单击 Cancel，则此函数返回一个长度为零的字符串 （）。 顺序结构、选择结构执行过程的特点是什么？顺序结构就是从头到尾一次执行每一个语句分支结构根据不同的条件执行不同的语句或者语句体循环结构就是重复的执行语句或者语句体,达到重复执行一类操作的目的