江西财经大学精品课程《数据库应用》实验报告
实验七 VBA常量、变量、函数和表达式的使用
学号 实验项目 实验地点 指导教师 一、实验要求 1. 实验目的 了解VBE界面构成； 掌握立即窗口的使用； 掌握立即窗口命令？使用 熟练掌握VBA表达式编写方法。 2. 实验准备 （1）登陆毕博教学网站（http://210.35.204.159/）；（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第七周”；（4）下载“实验”和“数据库样例”。 3. 实验步骤 第一部分：进入VBE的方式 （1）运行Access 2007软件，新建一个空白数据库。 （2）单击“数据库工具”选项卡中的“Visual Basic”，进入VBE环境。 第二部分：了解VBE构成 （3）在VBE中，单击“视图”|“立即窗口”，打开立即窗口。 （4）在立即窗口输入下列两行，并观察结果。 X = 3 + 4 * 6 / 8 ? X 第三部分：在立即窗口，完成下列操作。 （5）x被赋值为整型常量168，y被赋值为字符串常量168。 （6）使用typename函数求x和y的变量类型。 （7）将变量s1赋值为字符串常量“江西”；将变量s2赋值为字符串常量“财经大学”，分别求： 第 1 页/ 共10页
姓名 同组人 VBA常量、变量、函数和表达式的使用 G402 实验仪器台号 实验日期及节次 20 2011 年10 月 19 日，第 4 节 江西财经大学精品课程《数据库应用》实验报告
将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 ? \ ? \ ? #08/12/98# - #08/10/98# ? \ ? (8>5) AND #2011-05-26#>#2011-04-16# ? #11/26/96# - 10 x = \? Ucase(\ ? typename(x) x = \中华人民共和国\? mid(x,3,2) 第 2 页/ 共10页
江西财经大学精品课程《数据库应用》实验报告
? left(x,2) ? right(x,3) ? x like \人民*\ ? x like \人民*\ 二、实验过程（步骤、记录、数据和分析） 请将第三、四部分实验使用截图方式记录过程。 （5）x被赋值为整型常量168，y被赋值为字符串常量168。 x=168& y=\?x,y 168 168 （6）使用typename函数求x和y的变量类型。 ?typename(x) Long ?typename(y) String 第 3 页/ 共10页
江西财经大学精品课程《数据库应用》实验报告
（7）将变量s1赋值为字符串常量“江西”；将变量s2赋值为字符串常量“财经大学”，分别求： 将s1与s2连接，并赋值给s3，使用?输出s3的结果 使用取中间子串函数Mid，求s3的“财经”二字。 s1=\江西\s2=\财经大学\let s3=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结果。 第 4 页/ 共10页
江西财经大学精品课程《数据库应用》实验报告
let d1=dateserial(2011,05,01)+timeserial(16,48,26) ?d1 2011/5/1 16:48:26 d2=now ?d2 2011/10/21 14:40:53 let t1=d1>=d2 let t2=d1