8.3 模块.doc

模块 1、模块是以VBA语言为基础编写的，以函数过程（function）或子过程（sub）为单元的集合方式存储。 2、模块的分类： 类模块：嵌入到窗体和报表里称为类模块 标准模块：单独在模块对象进行编程的过程。 3、模块编程的要求： 一条语句写在一行；如果多条语句写在一起使用冒号(：)来间隔，一行写不下时用续行符（-）将语句连接在下一行，注释语句用单引号“‘”来注释，注释语句不会执行。 二、语句的执行方式 顺序结构：按照语句的顺序执行 条件结构：又称选择结构，根据条件来选择执行路径 循环结构：重复执行某一段代码。 顺序执行 例1:顺序执行 Dim a as integer Dim b as integer Dim c as integer A=2:B=3:A=a+1:b=b+2 C=a+b Msgbox c 2、条件结构 在文本框里输入数字，判断是否为偶数 If text mod 2 =0 then Msgbox “偶数” （1） If语句： 1）If-then单分支语句： a．行语句结构：If 条件表达式 then条件表达式为真的语句 注意：多条语句需要添加冒号：分割，注意条件控制的部分。 例1：If text mod 2 =0 then Msgbox “偶数”:Docmd.close 例2:If text mod 2 =0 then Msgbox “偶数” Docmd.close 例3:If text mod 2 =0 then Msgbox “偶数” If text mod 2 0 then Msgbox “奇数” b.块语句结构：if 条件表达式 then 条件表达式为真的语句 End if 例4: If text mod 2 =0 then Msgbox “偶数” Docmd.close End if 2）If-then-else双分支结构 行语句结构： If 条件表达式 then 条件表达式为真时要执行的语句 else 条件表达式为假执行的语句。 例1:if text=60 then msgbox “及格” else “不及格” 块语句结构 If 条件表达式 then 条件表达式为真的语句序列 Else 条件表达式为假时要执行的语句序列 End if 例： If text 60 Then MsgBox 及格 Else MsgBox 不及格: DoCmd.Close End If 3）if-then-elseif 语句 多分支结构 if 条件表达式1 then 条件表达式1为真时执行的语句序列1 Elseif条件表达式2 then 条件表达式1为假且条件表达式2为真时要执行的语句序列 …… [ else 语句序列n ] End if 例: a=text If a = 90 Then MsgBox 优秀 ElseIf a = 80 Then MsgBox 良好 ElseIf a = 70 Then MsgBox 中等 ElseIf a = 60 And a 70 Then MsgBox 及格 Else MsgBox 不及格 End If （2） Select case—end select语句 Select case 表达式 Case 表达式1（包含A，B，C） 表达式的值与表达式1的值相等时执行的语句序列 Case 表达式2 to 表达式3 表达式的值介于表达式2的值和表达式3的值之间时执行的语句序列 Case is 关系运算符 表达式4 表达式的值与表达式4的值之间满足关系也能算为真时执行的语句序列 Case else 上面情况均不符合是执行的语句序列 End select 例：Select case text Case is =90 Msgbox “输入的数大于90” Case 80 to 90 Msgbox “输入的数大于80 ” Case 1,3,5 Msgbox”你输入的是1,3,5” Case else Msgbox “你输入的是其他的数值” End select 2、循环语句 （1）for—next 语句 格式：For 循环变量=初值 to 终值 [step步长] 循环体 [ 条件语句序列 Exit for 结束条件语句序列 ] Next [循环变量] 执行步骤： 循环变量取初值 循环变量与终值比较，确定循环是否进行 步长0时； 若循环变量值=终值，