实验7实践报告Word文档格式.docx
《实验7实践报告Word文档格式.docx》由会员分享，可在线阅读，更多相关《实验7实践报告Word文档格式.docx（10页珍藏版）》请在冰豆网上搜索。
二、预习与准备
1、实验原理:
自己总结
2、实验设备:
win7,access2010
三、实验内容
7-1启动VBE编辑器。
启动VBE编辑器的常用方法如下。
①单击“创建”选项卡，再在“宏与代码”命令组中单击“模块”、“类模块”或“VisualBasic”命令按钮，均可以打开VBE窗口。
②在导航窗格的“模块”组中双击要显示的模块名称，就会打开VBE窗口并显示该模块的内容。
③在“数据库工具”选项卡中，单击“宏”命令组中的“VisualBasic”命令按钮，打开VBE窗口。
在VBE窗口中，选择“插入”菜单的“模块”选项，或在VBE窗口“标准”工具栏中单击“插入模块”命令按钮右侧的下拉箭头，并从下拉菜单中选择“模块”命令，可以创建新的标准模块。
④在窗体设计视图或报表设计视图中，单击“窗体设计工具/设计”选项卡或“报表设计工具/设计”选项卡，再在“工具”命令组中单击“查看代码”命令按钮。
⑤在窗体、报表的设计视图中，右键单击控件对象，再在打开的快捷菜单中选择“事件生成器”命令，打开“选择生成器”对话框，选择其中的“代码生成器”选项，单击“确定”按钮。
或单击“属性表”对话框中的“事件”选项卡，选中某个事件并单价属性框右边的省略号按钮，也可以打开“选择生成器”对话框，选择其中的“代码生成器”选项，单击“确定”按钮。
⑥使用Alt+F11组合键，可以在Access主窗口中和VBE窗口之间进行切换。
例7-2在VBE窗口中输入子过程s1并运行，查看程序运行结果。
①在VBE编辑器中，选择“插入”菜单“模块”命令，创建一个新的标准模块。
②在标准模块中输入子过程s1。
PrivateSubs1（）
Dima,b,cAsInteger
a=Instr（5,"
WellcometoBeijing"
"
e"
）
b=Sgn（5>
=2）
c=a+b
Debug.printc
EndSub
③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s1，运行结果显示在立即窗口中，如图7.1所示。
4、
例7-5在VBE窗口中输入子过程s4并运行，查看程序运行结果。
②在标准模块中输入子过程s4。
PrivateSubs4（）
IfHour（Time（））>
=8AndHour（Time（））<
12Then
MsgBox"
上午好!
"
ElseIfHour（Time（））>
=12AndHour（Time（））<
=18Then
下午好!
Else
欢迎下次光临!
EndIf
EndSub
③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s4，
运行结果显示在立即窗口中，如图7.4所示。
例7-6在VBE窗口中输入子过程s5并运行，查看程序运行结果。
②在标准模块中输入子过程s5。
7-8求1+2+3+4+…+100的和。
②在标准模块中编写子过程s7，求1+2+3+4+…+100的和。
PrivateSubs7（）
Dims,iAsInteger
s=0
Fori=1to100Step1
s=s+i
Nexti
Debug.prints
③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s7，运行结果显示在立即窗口中，如图7.7所示。
7-15在VBE窗口中输入两个子过程s14_1和s14_2并运行，查看程序运行结果。
②在标准模块中输入子过程s14_1和s14_2。
PrivateSubs14_1（）
DimaAsInteger,bAsInteger
a=12:
b=32
Calls14_2（a,b）
MsgBoxa&
Chr（32）&
b
PublicSubs14_2（xAsInteger,ByValyAsInteger）
y=ymod10
x=xmod10
③在VBE编辑器中单击“标准”工具栏上的“运行”按钮，选择运行子过程s14_1，运行结果显示在消息框中，
例7-27编写事件代码，完成以下功能：
在“fSys”窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“User”和“Pass”，还有“确定”和“退出”两个命令按钮，名称分别为“Enter”和“Quit”。
①在窗体加载时，“Pass”文本框内容以密码形式显示。
②在“User”和“Pass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“sgub”，用户密码为“3456”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，欢迎进入系统！
”，提示框中只有一个“确定”按钮，当单击“确定”按钮后，关闭该窗体；
如果输入不正确，则提示框显示内容为“密码错误！
”，同时清除“User”和“Pass”两个文本框中的内容，并将光标置于“User”文本框中。
③当单击窗体上的“退出”按钮后，关闭当前窗体。
操作步骤：
①以设计视图打开“fSys”窗体。
②在打开的“属性”对话框中单击“事件”选项卡，选择“加载”事件并打开VBE编辑器。
在VBE编辑器中输入如下程序代码。
PrivateSubForm_Load（）
Me.Pass.InputMask="
password"
③打开“确定”按钮的属性对话框，选择“事件”选项卡中的“单击”事件，打开VBE编辑器并在其中输入如下程序代码。
PrivateSubEnter_Click（）
DimnameAsString,passAsString
name=Nz（Me!
User）
pass=Nz（Me!
Pass）
Ifname="
sgub"
Andpass="
3456"
Then
MsgBox"
密码输入正确，欢迎进入系统！
vbOKOnly+vbCritical,"
欢迎"
'
DoCmd.Close
Else
密码错误！
vbOKOnly
Me!
User="
Pass="
User.SetFocus
④打开“退出”按钮的属性对话框，选择“事件”选项卡中的“单击”事件，打开VBE编辑器并在其中输入如下程序代码。
PrivateSubQuit_Click（）
DoCmd.Close
五、实验总结与体会
①VBA中的数据类型有哪些？
BA共有12种数据类型，具体见下表，此外用户还可以根据以下类型用Type自定义数据类型。
数据类型
类型标识符
字节
字符串型
String
$
字符长度（0-65400）
字节型
Byte
无
1
布尔型
Boolean
2
整数型
Integer
%
长整数型
Long
&
4
单精度型
Single
!
双精度型
Double
#
8
日期型
Date
8公元100/1/1-99/12/31
货币型
Currency
@
小数点型
Decimal
14
变体型
Variant
以上任意类型，可变
对象型
Object
②输入框和消息框的返回值类型是什么？
String类型
在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
如果用户单击Cancel，则此函数返回一个长度为零的字符串（"
）。
③顺序结构、选择结构执行过程的特点是什么？
顺序结构就是从头到尾一次执行每一个语句
分支结构根据不同的条件执行不同的语句或者语句体
循环结构就是重复的执行语句或者语句体,达到重复执行一类操作的目的
升级会员 