Access14程序数组、分支、循环.ppt

1、Access Database(第10章)，2009，1，第14讲：Access Database的模块设计，VBA编程环境(进入VBE和VBE接口)，VBA程序流程控制(顺序控制，选择控制，循环控制)，VBA模块创建(在模块中添加程序，在模块中执行宏)，调用和参数传递VBA程序调试：设置断点，单步跟踪，设置观察点，Access数据库(第10章)，2009，2，第14讲Access数据库的模块设计，结构化编程：变量定义语句：Dim AS，赋值语句：set=打印，Access数据库(第10章)，2009年，3第14讲：Access数据库的模块设计、编辑过程和运行调试，VBE的工程资源管理器，模块

2、代码窗口，调试工具栏和本地窗口，Access数据库(第10章)，2009年4月，第14讲：Access数据库的模块设计，结构化编程3360，数组定义：Dim(，)as，描述：使用前必须定义数组使用格式为： ()，通常，数组的所有下标元素都是相同的数据类型，并且数组类型可以被定义为Variant，所以数组的每个下标变量可以保存不同的数据类型。例如，如果定义了一个整数数组xyz(3，4)，该数组有20个独立的下标变量；Access数据库(第10章)，2009，5，第14讲，Access数据库的模块设计，结构化编程：_分支，单向选择：格式1:如果那么，格式2:如果那么结束如果，Access数据库(第

3、10章)，2009，6，第14讲，结构化编程：_分支，双向选择：格式3:如果那么结束如果，注意：它可以是VB的关系表达式、逻辑表达式或逻辑常数，并且VB的编译系统确定其位置，Access Database(第10章)，2009年7月，第14讲，Access Database的模块设计，结构化编程：_多分支，格式3:选择案例案例案例其他案例结束选择，函数：首先将的值与的值进行比较，如果结果为真，则执行其下的语句，然后在结束案例后执行该语句；如果比较结果为假，将其与下一个值进行比较；如果与所有表达式相比为假，将执行Case Else之后的语句序列；如果没有Case Else语句，则不会执行任何语句

4、序列，但会执行End Select之后的语句。Access Database(第10章)，2009年8月，第14讲，Access Database的模块设计，结构化程序设计： _ Multi-branch，Description:Case后有三个比较公式：Case后有一个或多个，表达式之间用逗号隔开，其中一个相等，结果为真，与TO测试条件的值在下限和上限内进行比较。示例：P252，Access数据库(第10章)，2009年9月，第14讲，Access数据库的模块设计，结构化编程：_条件循环，格式1:退出时执行.循环，然后判断条件是否成立。如果条件为真，再次进入循环执行；如果条件为false，则

5、结束循环并转到循环后面的语句继续执行。如果在循环体中有一个Exit Do语句，当该语句被执行时，它将跳出当前循环并在循环后执行该语句。如果省略While，则意味着条件表达式是逻辑常数“真”。在这种情况下，循环中必须有一个Exit do语句，否则它就是一个无限循环。描述：当条件为真时，执行While Loop在循环体中执行，并返回执行While，执行While时访问数据库(第10章)，2009年10月，第14讲，访问数据库的模块设计，结构化编程：_计数循环，格式2: for=to step exit for.接下来，注意：Crtl中断中断(。最终值可以执行循环体；当步长为正值时，只有当初始值不大

6、于最终值时，才能执行循环。For循环的执行如下：将初始值赋给循环变量。判断循环变量是否在初始值和最终值之间。如果循环变量超出范围，跳出循环，否则继续执行循环体。在执行循环体并遇到下一个语句后，将步长添加到当前循环变量的值中，然后将其分配给循环变量，然后返回到步骤2继续执行。描述：“步骤”为1时可以省略。循环变量初始值和最终值的设置受步长的限制。当步长为负时，初始值不小于，Access数据库(第10章)，2009年11月，Access数据库模块设计第14讲，示例： 1。在直接窗口2中显示1100的质数：在即时窗口中显示带“*”的三角形和菱形；Access数据库(第10章)，2009，12，次质数1to100()在直接窗口中显示质数Dim i为整数，j为1到100之间的整数。k为整数k=1，i=1至100，j=2至i - 1，如果(i/j)=(i j)，则退出下一个j，如果j=i，则调试。如果k=7，打印I，K=k 1结束，然后显示7个质数，然后换行，然后显示k=1调试。打印结束如果下一个我结束子