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

1、数据库应用ACCESS07实验七 VBA常量变量函数和表达式的使用实验七 VBA常量、变量、函数和表达式的使用学号 姓名 同组人 实验项目 VBA常量、变量、函数和表达式的使用 实验地点 G402 实验仪器台号 20 指导教师 实验日期及节次2011 年10 月 19 日，第 4 节一、实验要求1. 实验目的了解VBE界面构成；掌握立即窗口的使用；掌握立即窗口命令？使用熟练掌握VBA表达式编写方法。2. 实验准备（1）登陆毕博教学网站（http:/210.35.204.159/）；（2）选择“数据库应用”课程；（3）选择“按周编制的教学安排”后，再选择“第七周”；（4）下载“实验”和“数据库样

2、例”。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赋值为字符串常量“财经大学”，分别求：将s1与s2连

3、接，并赋值给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? I LOVE + CHINA? 12

4、3 & 56? #08/12/98# - #08/10/98#? AS = ABDASD? (85) AND #2011-05-26#2011-04-16#? #11/26/96# - 10x = jxufe? Ucase(jxufe)? typename(x)x = 中华人民共和国? mid(x,3,2)? left(x,2)? right(x,3)? x like *人民*? x like 人民*二、实验过程（步骤、记录、数据和分析）请将第三、四部分实验使用截图方式记录过程。（5）x被赋值为整型常量168，y被赋值为字符串常量168。x=168&y=168?x,y 168 168（6）使用

5、typename函数求x和y的变量类型。?typename(x)Long?typename(y)String（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,，

6、结果赋值给t1，t2，t3。最后使用?命令输出t1，t2，t3结果。let d1=dateserial(2011,05,01)+timeserial(16,48,26)?d12011/5/1 16:48:26 d2=now?d22011/10/21 14:40:53 let t1=d1=d2let t2=d1d2let t3=d1d2?t1,t2,t3False True True（9）将变量x1赋值为逻辑常量假，将变量x2赋值为逻辑常量真。分别求：x1和x2的与运算结果；x1和x2的或运算结果；x2的非运算结果。x1=falsex2=true?x1 and x2False?x1 or x2T

7、rue?not x2False第四部分：思考下列操作结果，并在立即窗口验证您的结果。? 2*5? I LOVE + CHINA? 123 & 56? #08/12/98# - #08/10/98#? AS = ABDASD? (85) AND #2011-05-26#2011-04-16#? #11/26/96# - 10x = jxufe? Ucase(jxufe)? typename(x)x = 中华人民共和国? mid(x,3,2)? left(x,2)? right(x,3)? x like *人民*? x like 人民*三、实验结论与分析讨论列出本次实验中你认为重要的运算符和函数。

8、 + - * / Mod AND OR XOR EQV IMP NOT () = = &Typename let sqr sgn left mid now int fix Icase Ucase Abs Rnd Space(number) string(number,) len() Instr Ltrim() Rtrim Trim Date Now Time year(date) month(date) day(date) hour(time) minute(time) second(time)DateAdd Datediff Datepart DateSerial DateValue TimeSerial 四、指导教师评语及成绩 成绩： 指导教师签名：