第8章 模块与VBA程序设计

Access2010数据库应用江西农业大学计算机与信息工程学院信息管理与信息系统教研室学习要点模块的基础知识新建模块VBA概述VBA程序设计基础知识第8章模块与VBA程序设计学习目标通过本章的学习，读者应该掌握模块的基础知识，并学会建立各类模块，并能够使用VBA进行数据库编程。第3章表的创建与使用对象（Objectt）属性（Property）方法（Method）事件（Event）8.1模块的基础知识8.1.1对象、属性、方法、事件模块是将VisualBasicforApplications中的声明和过程作为一个单元进行保存的集合。模块是由一个或多个过程组成的，每个过程可以实现一种或几种功能，利用模块可以将各种数据库对象联接起来，从而使其构成一个完整的系统。类模块标准模块过程

（1）Sub过程

（2）函数过程8.1模块的基础知识8.1.2什么是模块Data事件Keyboard事件Error和Timing事件Mouse事件Filter事件Focus事件Window事件8.1模块的基础知识8.1.3事件的类型窗体和报表模块都是类模块，而且它们都依附于某一窗体或报表而存在。窗体和报表模块通常都含有自己所包含的对象。每种对象都有自己固有的事件过程，该过程用于响应窗体或报表中的事件。可以使用事件过程来控制窗体或报表的行为，以及它们对用户操作的响应。例8-1：创建窗体类模块例8-2：创建报表类模块8.2新建模块8.2.1创建与窗体和报表相关的类模块使用类模块也可以创建不属于窗体或报表的类模块8.2.3创建标准模块标准模块包含的是普通过程，这些普通过程是独立存在的过程，不与任何对象相关联。8.2新建模块识8.2.2创建与窗体和报表不相关的普通类模块VBA是VisualBasicforApplicaton的缩写，是VB语言在微软Office系列产品中的应用，它是由VisualBasicForWindows发展而来，是VisualBasic的子集。VBA的语法结构与VisualBasicForWindows基本相似，如果你有VisualBasic基础，那么你的学习将更加轻松而有效率。VBA具有以下特征：（1）VBA是一种解释性语言。（2）VBA是一种面向对象的语言。（3）VBA支持可视化的编程环境。（4）VBA不能单独被执行，只能被office程序（Word、Excel、Access和PowerPoint等）所调用。（5）VBA是事件驱动的。8.3.1VBA简介8.3VBA概述VBA与VB的主要区别。1．VB可以创建独立的应用程序，而VBA是被嵌入在Microsoft的Office产品中来执行的。2．VB具有自己的开发环境，VBA寄生在已有的Office软件中。3．VB开发的应用程序通常是以可执行文件的方式存在于计算机中，而VBA开发的程序必须依赖于它的“父”应用程序（Offic）。8.3.2VBA与VB8.3VBA概述VBA的开发环境是指开发VBA程序所使用的“设计器”，通常叫它“VBA开发环境”在access2010中，单击“创建”→宏与代码中的“VisualBasic”或单击“数据库工具”→“VisualBasic”或按下组合键“Alt+F11”都会弹出一个窗口，这就是VBA的“开发环境”。也可以在打开一个数据库后，单击access2010窗口中的“创建”，然后单击其下的“模块”或“类模块”来进入VBA的开发环境。8.3.3认识VBA开发环境8.3VBA概述1．VBA开发环境窗口8.3.3认识VBA开发环境8.3VBA概述选择事件代码窗口工程资源管理器属性窗口1．VBA数据类型8.4.1数据类型、常量及变量8.4BA程序设计基础知识类型标识符数据类型占用内存(字节)有效数值范围Boolean布尔型2True或FalseByte字节型10～255的整数Integer整数型2-32768～32767Long长整数型4-2,147,483,648～2,147,483,647Single单精度浮点型4负数：-3.402823E38～-1.401298E-45正数：1.401298E-45～3.402823E38Double双精度浮点型8负数：-1.10000000000231E308～-4.10000000000247E-324正数：4.10000000000247E–324～1.10000000000231E3081．VBA数据类型类型标识符数据类型占用内存(字节)有效数值范围Currency变比整型8-922,337,203,685,477.5808～922,337,203,685,477.5807Decimal小数型14不含小数时：+/-10000000000100000000003950335包含小数时：+/-7.1000000000010000000000950335最小非零值：+/-0.1000000000010000000000000001Date日期型81/1/100～12/31/99991．VBA数据类型类型标识符数据类型占用内存(字节)有效数值范围String（定长）定长字符串型字符串长度定长字符串最多可包含大约65,400个字符String（变长）变长字符串型10字节+字符串长度变长字符串最多可包含大约20亿（2^31）个字符Object对象型4对象变量可用来引用任何对象Variant（数字）变体型16数值数据时，最大可达Double的范围+/-10000000000100000000003950335

包含小数时：

+/-7.1000000000010000000000950335

最小非零数字：+/-0.1000000000010000000000000001Variant（字符）变体型22字节+字符串长度与变长字符串的范围相同2．常量在程序的执行过程中，其值不能被改变的数据称为常量，也可以这么说，常量就是固定值，如19，3.14，0.625e+3，-2.89E-2。符号常量在VBA中，符号常量可以用Const语句来定义，并且可在模块中使用。例如，ConstPI=3.141593ConstAuthor="张三"8.4.1数据类型、常量及变量8.4BA程序设计基础知识3．变量变量是数据在程序中的一种表现形式，在程序的执行过程中，变量的值可以发生改变。变量主要用来保存程序运行时用户输入的数据、表达式的结果、函数的返回值和程序要输出的数据。变量包括以下4个组成部分：变量名、变量的数据类型、变量所占的存储空间和变量的值。8.4.1数据类型、常量及变量8.4BA程序设计基础知识3．变量变量在使用前应进行声明，这就是所谓的声明变量，也就是说明一个或多个变量的名字，以及这些变量可以保存何种类型的数据。在VBA中，可以使用两种方式来声明变量，一种为显式声明，另一种为隐式声明。显式声明要用到Dim语句，Dim即Dimension的意思，Dim语句的格式如下：（1）Dim变量名称As数据类型（2）Dim变量名称1,变量名称2,……,变量名称n As数据类型（3）Dim变量名称1As数据类型1,变量名称2As数据类型2,……,变量名称nAs数据类型nVBA中常用的运算符可分为以下几类：算术运算符、关系运算符、逻辑运算符和字符串的连接运算符。由运算符和运算数按一定的格式组成的式子叫作表达式。具体来说，表达式是由数字、字符串、常量、变量、对象成员、函数以及运算符组成的运算式。每一个表达式经过运算后都会产生一个确定的值（这一运算过程称为表达式求值），这个值就称为表达式的值。VBA的表达式可分为算术表达式、关系表达式、逻辑表达式和字符串表达式。8.4.2运算符与表达式8.4BA程序设计基础知识除了在模块创建中可以定义子过程与函数过程以完成特定功能外，VBA还提供了近百个内置的标准函数，可以方便地完成许多操作。标准函数一般用于各种表达式中，有的能像语句一样使用。其使用格式如下：

函数名(参数列表)或

函数名()VBA的标准函数可分为：算术函数、字符串函数、日期/时间函数和类型转换函数。8.4.3VBA的常用函数8.4BA程序设计基础知识VisualBasic中的语句是一个完整的命令。它可以包含关键字、运算符、变量、常量以及表达式。每一个语句都属于下列3种类别之一。（1）声明语句（2）赋值语句（3）可执行语句1．VBA中语句的特点（1）VBA允许将单个语句分成多行书写。（2）VBA允许在代码中加入注释。例8-3：在程序中使用注释的方法。8.4.4VBA中的语句8.4BA程序设计基础知识2．VBA中的声明语句例8-4：声明语句使用实例。3．赋值语句例8-5：指定InputBox函数的返回值给变量name。8.4.4VBA中的语句8.4BA程序设计基础知识4．选择控制语句（1）If…Then…语句例8-6：随机出一道两位数的加法题让小学生回答。例8-7：输入一整数，判断其奇偶并显示相应的判断结果。例8-8：使用块条件语句改写例8-7的程序。（2）块结构条件语句例8-9：收入税计算。8.4.4VBA中的语句8.4BA程序设计基础知识（3）SelectCase语句例8-10：根据当前时间，判断现在是上午、中午、下午、晚上，还是午夜。例8-11：根据百分制成绩返回成绩等级。成绩大于等于0且小于60，则返回“不及格”，成绩介于60到70之间（含60，但不含70），则返回“及格”，成绩介于70到90之间（含70，但不含90），则返回“良好”，成绩介于90到99之间（含80和99），则返回“优秀”，成绩为100分则返回“满分”，如果成绩小于0或者大于100，提示则提示成绩值错误。要求利用一个Function过程来处理。8.4.4VBA中的语句8.4BA程序设计基础知识5．循环控制语句（1）Do循环DoWhile…Loop循环Do…LoopWhile循环DoUntil…Loop循环Do…LoopUntil循环例8-12：编写过程求S=1+2+3+…+100例8-13：使用Do…LoopWhile循环改写例8-12所得的过程。8.4.4VBA中的语句8.4BA程序设计基础知识5．循环控制语句例8-14：编写过程求n!例8-15：使用Do…LoopUntil循环改写例8-14所得的过程。5．循环控制语句（2）For循环For…Next循环ForEach…Next循环例8-17：使用For…Next循环重写例8-12的过程。例8-18：编写程序，由键盘输入一个自然数n，判断它是否是素数。素数就是，除1以外，只能被1和它自己整除的自然数。例8-20：利用ForEach…Next循环输出一个长度为20的随机数组，并求数组中各元素的和以及大于50的元素的个数。5．循环控制语句（3）双重循环和多重循环双重循环和多重循环统称为循环的嵌套，是指在一个循环结构的循环语句块中又包含了另一个循环结构，并且这种嵌套可以是多层的。例8-21：在VBA立即窗口输出九九乘法口决表。过程是由两部分组成的，即声明部分和过程代码实现部分。声明部分用于声明当前过程所用到的标识符。如变量、常量、数组等。1．Sub过程Sub过程是没有返回值的过程，它主要用来完成某种操作，其语法结构如下：Sub过程名([参数表])语句组EndSub8.4.5建立过程8.4BA程序设计基础知识1．Sub过程例8-22：一个带有两个参数的Sub过程，显示两个整数相加、相减的结果。而标准模块中的Sub过程是