《计算机二级 vba编程》由会员分享，可在线阅读，更多相关《计算机二级 vba编程（8页珍藏版）》请在金锄头文库上搜索。
1、第第 8 章：模块与章：模块与 VBA 编程编程 一、模块的类型一、模块的类型1类模块：类模块：窗体和报表都属于类模块。窗体和报表窗体和报表都属于类模块。窗体和报表中的事件过程可以调用标准模块中已定义好的过程。中的事件过程可以调用标准模块中已定义好的过程。窗体和报表模块具有局部特性。窗体和报表模块具有局部特性。2标准模块：标准模块：它是一个公共过程，可由其他数据库它是一个公共过程，可由其他数据库对象调用。标准模块一般定义一些公共变量或过程，对象调用。标准模块一般定义一些公共变量或过程，其具有全局性。当然各个标准模块内部也可定义私有其具有全局性。当然各个标准模块内部也可定义私有变量及过程，供本模
2、块内部使用。变量及过程，供本模块内部使用。3将宏转换为模块：将宏转换为模块： 二、创建模块二、创建模块（一）在模块中加入过程（一）在模块中加入过程模块由过程来组成，而过程分两种类型：模块由过程来组成，而过程分两种类型：Sub 过程和过程和Function 函数。函数。1Sub 过程：过程：称为子过程，执行一系列操作，无返称为子过程，执行一系列操作，无返值。定义格式：值。定义格式：Sub 过程名过程名( )程序代码程序代码End Sub2Function 过程：过程：称为函数过程，执行一系列操作，称为函数过程，执行一系列操作，有返值。定义格式：有返值。定义格式：Function 函数名函数名(
3、) As (返值返值)类型类型程序代码程序代码End Function（二）在模块中执行宏（二）在模块中执行宏调用格式：调用格式：Docmd.RunMacro 宏名宏名三、三、VBE 编辑环境（编辑环境（P202）程序语句的书写规则（程序语句的书写规则（P206） 四、数据类型（四、数据类型（P207）和数据库对象）和数据库对象 （P208） 五、常量与变量五、常量与变量1变量的定义格式：变量的定义格式：Dim 变量名变量名 As 数据类型数据类型2数据库对象变量引用格式：数据库对象变量引用格式：Forms!窗体名称窗体名称!控件名称控件名称.属性名称属性名称或或 Reports!报表名称报表
4、名称!控件名称控件名称.属性名称属性名称3数组的定义数组的定义Dim 数组名数组名(下标下限下标下限 to 下标上限下标上限)若省略下标下限，则下标下限为若省略下标下限，则下标下限为 0。4变量标识符命名规则变量标识符命名规则字母、数字、下划线组成，字母开头。字母、数字、下划线组成，字母开头。5符号常量的定义符号常量的定义Const 符号常量名称符号常量名称=常量值常量值6函数函数 六、运算符与表达式六、运算符与表达式1算术运算符算术运算符+ - * / mod2关系运算符关系运算符= =3逻辑运算符逻辑运算符And Or Not4表达式和优先级表达式和优先级 七、七、VBA 流程控制语句流程
5、控制语句 补：键盘输入语句：补：键盘输入语句： 变量变量=Inputbox(“提示信息提示信息”)1赋值语句赋值语句Let 常量名常量名=值或表达式值或表达式2条件语句（分支语句或选择语句）条件语句（分支语句或选择语句）单分支结构单分支结构语法：语法：if (条件条件) then 表达式表达式或或 if (条件条件) then 表达式表达式End if双分支结构双分支结构语法：语法：if (条件条件) then 表达式表达式 1 else 表达式表达式 2或或 if (条件条件) then 表达式表达式 1Else表达式表达式 2End if多分支结构多分支结构 1语法：语法： if (条件条
6、件 1) then if (条件条件 1) then表达式表达式 1 表达式表达式 1ElseIf (条件条件 2) Else表达式表达式 2 If (条件条件 2)Else 表达式表达式 2表达式表达式 3 ElseEnd if 表达式表达式 3End ifEnd if多分支结构多分支结构 2语法：语法：Select Case 表达式表达式Case 表达式表达式 1语句语句 1Case 表达式表达式 2语句语句 2Case 表达式表达式 n语句语句 nCase else语句语句 n+1End Select3条件函数条件函数iif 函数：函数：iif(条件条件,表达式表达式 1,表达式表达式
7、2)例：例：max=iif(ab,a,b)Switch 函数：函数：Switch(条件条件 1,表达式表达式 1,条件条件 2,表达式表达式 2 ,条件条件 n,表达式表达式 n)例：例：y=Switch(x0,1,x=0,0,x0,-1)Choose 函数：函数：Choose(索引项索引项,选项选项 1,选项选项 2,选项选项 n)例：例：y= Choose (x,56,80,100,43,70)4循环结构循环结构for 循环循环For 循环变量循环变量=初值初值 to 终值终值 step 步长步长循环体语句循环体语句Next 循环变量循环变量Do whileLoop 循环（条件为真执行循环
8、）循环（条件为真执行循环）Do while 条件条件 循环体语句循环体语句LoopDo UntilLoop 循环（条件为假执行循环）循环（条件为假执行循环）Do Until 条件条件循环体语句循环体语句Loop注：注：Do whileLoop 和和 Do UntilLoop 循循环还可以把条件放在后面，形成环还可以把条件放在后面，形成 Do Loop while 和和 Do Loop Until 循环循环循环结构常用的算法：循环结构常用的算法：1S=1+2+3+100。 (累加累加)2N！=1*2*3*N。 (累乘累乘)3求最大值和最小值。求最大值和最小值。4求素数求素数5求数列的第求数列的第
9、 N 项项1 ,1,2,3,5,8,13(斐波那契数列斐波那契数列)6.双循环的控制双循环的控制八、过程调用与参数传递八、过程调用与参数传递1子过程的定义和调用：子过程的定义和调用：可以使用可以使用 Sub 定义一个新的子过程，格式如下：定义一个新的子过程，格式如下：Public|privatestatic Sub 子过程名子过程名(形参形参)子过程代码子过程代码End Sub调用格式调用格式 1:Call 子过程名子过程名(实参实参)调用格式调用格式 2:子过程名子过程名(实形实形)2函数过程的定义与调用函数过程的定义与调用Public|privatestatic Function 函数过程
10、名函数过程名(形参形参)As 数据类型数据类型函数过程代码函数过程代码End Function调用格式调用格式: 函数过程名函数过程名(实参实参)例例:输入圆的半径输入圆的半径,求圆面积求圆面积.(分别用子过程和函数计分别用子过程和函数计算算)Sub p1()Dim r As Singler = InputBox(“r:“)s (r) 若为若为 call s(r) 则为按址传递则为按址传递Debug.Print rEnd SubSub s(ByRef x As Single)Dim area As Singlearea = 3.1415926 * x 2x = areaDebug.Print areaEnd Sub
