数据库应用ACCESS07实验七 VBA常量变量函数和表达式的使用.docx

数据库应用ACCESS07实验七 VBA常量变量函数和表达式的使用.docx

《数据库应用ACCESS07实验七 VBA常量变量函数和表达式的使用.docx》由会员分享，可在线阅读，更多相关《数据库应用ACCESS07实验七 VBA常量变量函数和表达式的使用.docx（11页珍藏版）》请在冰豆网上搜索。

数据库应用ACCESS07实验七VBA常量变量函数和表达式的使用

实验七VBA常量、变量、函数和表达式的使用

学号

姓名

同组人

实验项目

VBA常量、变量、函数和表达式的使用

实验地点

G402

实验仪器台号

20

指导教师

实验日期及节次

2011年10月19日，第4节

一、实验要求

1.实验目的

了解VBE界面构成；

掌握立即窗口的使用；

掌握立即窗口命令？

使用

熟练掌握VBA表达式编写方法。

2.实验准备

（1）登陆毕博教学网站（http:

//210.35.204.159/）；

（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第七周”；（4）下载“实验”和“数据库样例”。

3.实验步骤

第一部分：

进入VBE的方式

（1）运行Access2007软件，新建一个空白数据库。

（2）单击“数据库工具”选项卡中的“VisualBasic”，进入VBE环境。

第二部分：

了解VBE构成

（3）在VBE中，单击“视图”|“立即窗口”，打开立即窗口。

（4）在立即窗口输入下列两行，并观察结果。

X=3+4*6/8

?

X

第三部分：

在立即窗口，完成下列操作。

（5）x被赋值为整型常量168，y被赋值为字符串常量168。

（6）使用typename函数求x和y的变量类型。

（7）将变量s1赋值为字符串常量“江西”；将变量s2赋值为字符串常量“财经大学”，分别求：

将s1与s2连接，并赋值给s3，使用?

输出s3的结果

使用取中间子串函数Mid，求s3的“财经”二字。

（8）将2011年5月1日16时48分26秒赋值给变量d1，使用now函数将当前日期和时间赋值给d2。

输出d1和d2值。

变量d1在前，变量d2在后，分别使用关系运算符大于等于，小于，不等于连接d1和d2,，结果赋值给t1，t2，t3。

最后使用?

命令输出t1，t2，t3结果。

（9）将变量x1赋值为逻辑常量假，将变量x2赋值为逻辑常量真。

分别求：

x1和x2的与运算结果；x1和x2的或运算结果；x2的非运算结果。

第四部分：

思考下列操作结果，并在立即窗口验证您的结果。

?

2*5

?

"ILOVE"+"CHINA"

?

"123"&"56"

?

#08/12/98#-#08/10/98#

?

"AS"="ABDASD"

?

（8>5）AND#2011-05-26#>#2011-04-16#

?

#11/26/96#-10

x="jxufe"

?

Ucase（"jxufe"）

?

typename（x）

x="中华人民共和国"

?

mid（x,3,2）

?

left（x,2）

?

right（x,3）

?

xlike"*人民*"

?

xlike"人民*"

二、实验过程（步骤、记录、数据和分析）

请将第三、四部分实验使用截图方式记录过程。

（5）x被赋值为整型常量168，y被赋值为字符串常量168。

x=168&

y="168"

?

x,y

168168

（6）使用typename函数求x和y的变量类型。

?

typename（x）

Long

?

typename（y）

String

（7）将变量s1赋值为字符串常量“江西”；将变量s2赋值为字符串常量“财经大学”，分别求：

将s1与s2连接，并赋值给s3，使用?

输出s3的结果

使用取中间子串函数Mid，求s3的“财经”二字。

s1="江西"

s2="财经大学"

lets3=s1+s2

?

s3

江西财经大学

?

mid（s3,3,2）

财经

（8）将2011年5月1日16时48分26秒赋值给变量d1，使用now函数将当前日期和时间赋值给d2。

输出d1和d2值。

变量d1在前，变量d2在后，分别使用关系运算符大于等于，小于，不等于连接d1和d2,，结果赋值给t1，t2，t3。

最后使用?

命令输出t1，t2，t3结果。

letd1=dateserial（2011,05,01）+timeserial（16,48,26）

?

d1

2011/5/116:

48:

26

d2=now

?

d2

2011/10/2114:

40:

53

lett1=d1>=d2

lett2=d1

lett3=d1<>d2

?

t1,t2,t3

FalseTrueTrue

（9）将变量x1赋值为逻辑常量假，将变量x2赋值为逻辑常量真。

分别求：

x1和x2的与运算结果；x1和x2的或运算结果；x2的非运算结果。

x1=false

x2=true

?

x1andx2

False

?

x1orx2

True

?

notx2

False

第四部分：

思考下列操作结果，并在立即窗口验证您的结果。

?

2*5

?

"ILOVE"+"CHINA"

?

"123"&"56"

?

#08/12/98#-#08/10/98#

?

"AS"="ABDASD"

?

（8>5）AND#2011-05-26#>#2011-04-16#

?

#11/26/96#-10

x="jxufe"

?

Ucase（"jxufe"）

?

typename（x）

x="中华人民共和国"

?

mid（x,3,2）

?

left（x,2）

?

right（x,3）

?

xlike"*人民*"

?

xlike"人民*"

三、实验结论与分析讨论

列出本次实验中你认为重要的运算符和函数。

+-*/^ModANDORXOREQVIMPNOT（）<<=>>=<>=

&

TypenameletsqrsgnleftmidnowintfixIcaseUcaseAbsRnd

Space（number）string（number,<字符串表达式>）len（<字符串表达式>）

InstrLtrim（<字符串>）RtrimTrim

DateNowTimeyear（date）month（date）day（date）hour（time）minute（time）second（time）

DateAddDatediffDatepartDateSerialDateValueTimeSerial

四、指导教师评语及成绩

成绩：

指导教师签名：