Acces的编程工具VBA.pptx

第8章?Access的编程工具VBA;8.1?VBA程序设计概述;8.1.2?面向对象程序设计的概念;8.1.2?面向对象程序设计的概念;4. 方法 方法是对象在事件触发时的行为和动作，是与对象相关联的过程。 5. 类、子类与对象的封装 类是一种对象的归纳和抽象。 子类由类派生而来。如电话是一个类，那么有绳电话、无绳电话就是由此类派生的子类。 将一个对象内的属性和方法封闭在一个对象的内部，当用到或者创建一个新对象时，它本身已具有了一定的属性和方法，对象的这种属性被称为对象的封装。 ;8.1.3 编写简单的VBA程序;8.2 VBA语法知识;8.2.1数据类型;8.2.1数据类型;8.2.1数据类型;8.2.1数据类型;8.2.1数据类型;8.2.2常量、变量和数组;8.2.2常量、变量和数组;8.2.2常量、变量和数组;8.2.2常量、变量和数组;8.2.2常量、变量和数组;8.2.2常量、变量和数组;8.2.2常量、变量和数组;8.2.2常量、变量和数组;模块变量 模块变量是在模块的起始位置、所有过程之外定义的变量。运行时在模块所包含的所有子过程和函数过程中都可见。 全局变量 全局变量就是在标准模块的所有过程之外的起始位置定义的变量，运行时在所有类模块和标准模块的所有子过程与函数过程中都可见，用Public关键字声明全局变量。;8.2.2常量、变量和数组;3. 数组 数组是一批相关数据的有序集合，由名字相同而下标不同的一组有序变量表示。 一维数组的定义格式： Dim数组名([下标下限 to] 下标上限) [As数据类型] 二维数组的定义格式： Dim数组名([下标下限to] 下标上限，[下标下限to] 下标上限) [As数据类型] ;【例8-6】定义数组 Dim A（6）As Integer ‘定义了一个有7个数组元素的整型数组A，下标从0到6 Dim B（1 to 8）As Integer ‘定义了一个有8个数组元素的整型数组B，下标从1到8 Dim Array1（2，3）As Integer ‘定义了一个有12个数组元素的二维整型数组Array1 Dim Array2（）As Integer ‘定义了一个动态数组Array2 A（0）=121 ‘为数组A的数组元素A（0）赋值121 ;8.2.3 VBA的运算符和表达式;8.2.3 VBA的运算符和表达式;8.2.3 VBA的运算符和表达式;8.2.3 VBA的运算符和表达式;8.2.3 VBA的运算符和表达式;8.2.3 VBA的运算符和表达式;8.2.3 VBA的运算符和表达式;8.2.4常用的标准函数;8.2.4常用的标准函数;1. 数学函数 （1）取整函数 格式：INT（数值表达式） 功能：返回不大于数值表达式的最大整数。 【例8-10】 INT（5.8 8） ‘结果为：5 INT（-5.68） ‘结果为：-6 INT（21.5+6.8） ‘结果为：28 （2）截取函数 格式：Fix（数值表达式） 功能：去掉数值表达式的小数部分，只取整数部分。 ;1. 数学函数 【例8-11】 Fix（5.8 8） ‘结果为：5 Fix（-5.68） ‘结果为：-5 ;1. 数学函数 （3）绝对值函数 格式：Abs（数值表达式） 功能：求数值表达式的绝对值。 【例8-12】 Abs（58） ‘结果为：58 Abs（-30.27） ‘结果为：30.27 ;1. 数学函数 （4）四舍五入函数 格式：Round（数值表达式1，数值表达式2） 功能：按数值表达式2指定的位数保留小数位数，对数值表达式1的值进行四舍五入运算。 【例8-13】 Round（215.517，0） ‘结果为：216 Round（215.517，1） ‘结果为：215.5 Round（215.517，2） ‘结果为：215.52 ;（5）求平方根函数 格式：Sqr（数值表达式） 功能：返回数值表达式的算术平方根值。 【例8-14】 Sqr（2） ‘结果为：1.41（这里保留了两位有效数字） Sqr（65.78） ‘结果为：8.11（这里保留了两位有效数字） （6）求自然对数函数 格式：Log（数值表达式） 功能：求数值表达式的自然对数值。 ;（7）幂函数 格式：Exp（数值表达式） 功能：求数值表达式对于e的幂的值。 【例8-15】 Log（28.67） ‘结果为：3.36 Exp（5.57） ‘结果为：262.43 ;（8）正弦函数 格式：Sin（数值表