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

实验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，则此函数返回一个长度为零的字符串（"

）。

③顺序结构、选择结构执行过程的特点是什么？

顺序结构就是从头到尾一次执行每一个语句

分支结构根据不同的条件执行不同的语句或者语句体

循环结构就是重复的执行语句或者语句体,达到重复执行一类操作的目的