Access_14程序数组、分支、循环.pptVIP

第14讲 Access数据库的模块设计 VBA编程环境（进入VBE、VBE界面） VBA程序流程控制（顺序控制、选择控制、循环控制） 创建VBA模块（在模块中加入过程、在模块中执行宏）， 调用和参数传递 VBA程序的调试：设置断点，单步跟踪，设置监视点 第14讲 Access数据库的模块设计 结构化程序设计: 第14讲 Access数据库的模块设计 编辑过程与运行调试 第14讲 Access数据库的模块设计 结构化程序设计: 第14讲 Access数据库的模块设计 结构化程序设计:__分支 第14讲 Access数据库的模块设计 结构化程序设计:__分支 第14讲 Access数据库的模块设计 结构化程序设计:__多路分支 第14讲 Access数据库的模块设计 结构化程序设计:__多路分支 第14讲 Access数据库的模块设计 结构化程序设计:__条件循环 第14讲 Access数据库的模块设计 结构化程序设计:__计数循环 第14讲 Access数据库的模块设计 例: 1. 在立即窗口显示1~100内的质数: 2. 在立即窗口用“*”号显示三角形和菱形； Access数据库（第10章） 变量定义语句： Dim 变量 AS 类型 [, ……] 赋值语句： [set] 变量=表达式 调试(立即窗口)输出语句： Debug.Print [表达式][, ……][,] VBE的工程资源管理器 模块代码窗 调试工具栏与本地窗口 数组定义： Dim 数组名（下标[, 下标][, ……]) as 类型 说明：数组必须先定义，后使用；使用格式为： 数组名(下标)， 通常情况，一个数组的所有下标元素为同一数据类型，可将数组类型定义为Variant，则数组的各个下标变量可以存放不同的数据类型。 例：定义一个整型数组xyz(3,4)，则该数组有20个独立的下标变量； 单向选择： 格式1： If 条件表达式 Then 语句 格式2： If 条件表达式 Then 语句序列 End If 双向选择： 格式3： If 条件表达式 Then 语句序列1 Else 语句序列2 End If 注：条件表达式可以是VB的关系表达式，逻辑表达式或逻辑常量，VB的编译系统根据条件表达式的计算结果(True 或 False)确定下一条语句的去向。 格式3： Select Case 测试条件 Case 表达式1 语句序列1 Case 表达式2 语句序列2 …… Case 表达式n 语句序列n [Case Else 语句序列n+1] End Select 功能： 由测试条件的值首先和表达式1的值进行比较，其结果为True则执行其下的语句序列，再执行End Case之后的语句；如比较结果为False,则和下一个表达式值比较，……；如和所有的表达式比较都为False,则执行Case Else后的语句序列，如无Case Else字句，则不执行任何语句序列，而执行End Select之后的语句。 说明：测试条件和Case 后的表达式有三种比较方 式： Case 后有1到多个表达式，表达式间用逗号分隔 测试条件值和其中一个相等，其结果为True Is 关系运算符 表达式 测试条件与表达式进行关系比较 表达式下限TO表达式上限 测试条件的值在下限和上限内比较结果为 True 。 例：P252 格式1： Do [ While 条件表达式] 语句序列1 [Exit Do] ….. 语句序列n Loop 然后再判断条件是否成立。若条件为真，则再次进入循环体内执行语句序列，若条件为假，则结束循环，转到Loop 后面的语句继续执行。 如果在循环体内有Exit Do语句，则当执行到该语句时就跳出当前循环，执行Loop之后的语句。 如省略 While 条件表达式则表示条件表达式为逻辑常量True，这种情况下，循环体内一定要有Exit do语句，否则就是一个死循环。 说明： Do While 循环当条件为真时执行循环体内的语句序列，当执行到Loop时返回到Do While， 格式2： For 循环变量=初值 to 终值 [step 步长] 语句序列1 [Exit For] ….. 语句序列n Next [循环变量] 注：Crtl+Break中断(死循环)程序运行！ 终值才可能执行循环体；当步长为正数时，初值不大于终值才可能执行循环体。 For循环执行步骤如下： ① 将初值赋给循环变量。 ② 判断