实验七 VBA常量、变量、函数和表达式的使用
学号
姓名
同组人
 
实验项目
VBA常量、变量、函数和表达式的使用 
实验地点
G402 
实验仪器台号
20 
指导教师
 
实验日期及节次
2011 年10  月 19 日，第 4 节
一、实验要求
1. 实验目的
了解VBE界面构成；
掌握立即窗口的使用；
掌握立即窗口命令？使用
熟练掌握VBA表达式编写方法。
2. 实验准备
（1）登陆毕博教学网站（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赋值为字符串常量“财经大学”，分别求：
将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
? "I LOVE" + " CHINA"
? "123" & "56"
? #08/12/98# - #08/10/98#
? "AS" = "ABDASD"
? (8>5) AND #2011-05-26#>#2011-04-16#
? #11/26/96# - 10
字符串处理函数 如果是a展示bx = "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）使用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,，结果赋值给t1，t2，t3。最后使用?命令输出t1，t2，t3结果。
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<d2
let t3=d1<>d2
?t1,t2,t3
False        True          True
（9）将变量x1赋值为逻辑常量假，将变量x2赋值为逻辑常量真。分别求：
x1和x2的与运算结果；x1和x2的或运算结果；x2的非运算结果。
x1=false
x2=true
?x1 and x2
False
?x1 or x2
True
?not x2
False
第四部分：思考下列操作结果，并在立即窗口验证您的结果。
? 2*5
? "I LOVE" + " 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)
? x like "*人民*"
? x like "人民*"
三、实验结论与分析讨论
列出本次实验中你认为重要的运算符和函数。
+  -  *  /  ^  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 
四、指导教师评语及成绩
   
成绩：    指导教师签名：   

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。