第8章模块和VBA程序设计教学案例.ppt

第8章模块和VBA程序设计本章概述8.1模块的概念8.1模块的概念8.1模块的概念8.1模块的概念8.1模块的概念8.1模块的概念8.1模块的概念8.2VBA程序设计基础8.2.1面向对象程序设计的基本概念
Access内嵌的VBA编程语言，采用的是目前主流的面向对象编程机制和可视化编程环境，同时也提供了访问数据库和操作数据表中记录的基本方法。

1．对象和类
Access中的表、查询、窗体、报表、页、宏和模块等都是数据库的对象，而控件是窗体或报表中的对象。每个不同的对象都通过不同的属性相互区分。对象的属性按其类别会有所不同，而且同一对象的不同实例属性构成也可能有差异。8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础第二节VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础例8-9：下面是对“学生信息”窗体中“学号”信息文本框的引用：
Forms!学生信息!学号=“2006010105”
Forms!学生信息![学号]=“2006010105”
当需要多次引用对象时，可以使用Set关键字来建立控件对象的变量，这样处理很方便。

例8-10：要多次引用“学生信息”窗体中“姓名”控件的值时，可以使用以下方式：
DimStuNameAsControl
SetStuName=Forms!学生信息!姓名
StuName=“刘磊” 8.2VBA程序设计基础8.2VBA程序设计基础例8-11：定义一个有11个数组元素的整型数组，数组元素为NewArray(0)至NewArray(10)
DimNewArray(10)AsInteger

例8-12：定义一个有10个数组元素的整型数组，数组元素为NewArray(1)至NewArray(10)
DimNewArray(1To10)AsInteger

例8-13：定义一个三维数组NewArray，共含有4×4×4（64）个数组元素。
DimNewArray(3,3,3)AsInteger8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础第二节VBA程序设计基础8.2VBA程序设计基础8.2VBA程序设计基础8.3常用标准函数
Fix(数值表达式)Cos(数值表达式)例8-20：常用数学函数举例如下：
Abs(-7)=7
Exp(2)=7.38905609893065
Log(6)=1.79175946922805
Sqr(25)=5
Int(6.28)=6，Fix(6.28)=6
Int(-6.28)=-7，Fix(-6.28)=-6
Sin(90*3.14159/180)
Cos(45*3.14159/180)
Tan(30*3.14159/l80)
Int(100*Rnd)
Int(101*Rnd) 8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
例8-27：日期分量函数举例。
Year(#2007/1/15#) ‘返回2007
Month(#2007/1/15#) ‘返回1
Day(#2007/1/15#) ‘返回15
Weekday(#2007/1/15#) ‘返回2，#2007/1/15#是星期一
Weekday(#2007/1/15#,5) ‘返回58.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
例8-33：使用InputBox函数返回用键盘输入的学生ID号，如图8.11所示。
DimStuIDAsString
StuID=InputBox(“请输入学生ID号：”,“信息提示”)
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.3常用标准函数
8.4VBA的程序结构

8.4VBA的程序结构

8.4VBA的程序结构

8.4