【二級ACCESS教程配套讲义】第8章模块与VBA编程基础.docVIP

Ch8 VBA编程基础 8.1 VBA编程中常见的过程语句结构 8.1.1 顺序结构 1 代码一：变量、常量的定义及算术运算函数使用 2 代码二：字符串函数以及字符串连接符 3 代码三：子过程的调用 上述代码中举例了在VB编程中经常会用到的语句及格式，现总结如下： （1）Sub 和End Sub会成对出现，这个系统会自动给出。 （2）关键字在VBE中会用蓝色显示，注释语句会用绿色显示，系统内置函数会自动转换大小写。 （3）变量定义一般都采用显式定义的格式，具体变量类型参照教材207页表8.2 （4）多条语句在同一行书写时需要用“:”分隔。 4 变量的作用域 在子过程内部定义的变量称之为局部变量，作用域就是这个子过程内部，不能被其他子过程调用。一般用在子过程内用Dim定义。 在本模块内的所有子过程以外的起始部分声明的变量叫模块变量，作用域是当前它所在的这个模块。一般在本模块的“通用”“声明”部分用Dim或者Private定义。 在所有标准模块的所有子过程以外的起始部分声明的变量叫全局变量，作用域是所有模块中的所有子过程都对其可见。一般在“通用”“声明”部分用Public 定义 5 代码四：数组的使用 从上述的四个代码中，我们能看出所有的子过程在任何一次执行时得到的结果都是一样的，如果像利用子过程中的功能，根据不同的要求每次执行时都重新定义内部变量的值会得到不同的结果。（在这里演示代码中更改变量值所得到的不同结果。）通过演示可以发现，如果每次都根据需要去修改子过程中的值会非常不方便，而且也会引起一些不必要的麻烦，如果我们能让这些子过程提供一个接收具体要求的“接待窗口”（简称“接口”），那么将会让代码的使用更灵活，更简单。 6 代码五：带参数的子过程和转换函数 这种子过程不能让他直接运行，需要在别的子过程进行调用，并给出具体的参数才能正确运行。（演示调用过程，并根据给出的参数不同观察立即窗口中的内容）。 上述代码中还用到了一个转换函数STR，具体的转换函数说明请参考教材218页的“四、类型转换函数”部分。 8.1.2 选择结构 8.1.1这一节举例的代码都是顺序结构的，所有的语句都是按照在子过程中书写的顺序从上到下依次被执行。但更多的情况下，我们需要根据现实具体情况来决定到底哪部分代码可以被执行，哪部分代码不需要被执行，这样的结构我们称之为选择结构。 1 单分支结构（If Then） 上述代码中的子过程“IfThen_Example”是判断两个数值是否相等的。子过程Call_IfThen_Example是对“IfThen_Example”子过程进行调用以执行的。运行后立即窗口中会出现“两数相等”。但若给“IfThen_Example”传递的两个参数不相等，那么立即窗口中没有任何显示，这显然不合理，因此可以利用双分支结构来改善上述的子过程“IfThen_Example”。 2 双分支结构（If Then Else End If） 双分支结构中，当If后面的逻辑表达式为“真”时，则执行Then后的语句，若为“假”，则执行Else后的语句。 上述的代码在对其进行调用时，根据传递的两个参数的情况来分别显示结果。这个子过程只能判断两个数是否相等，但无法知道其大小，这就需要使用多分支结构来改进。 3 多分支结构（If Then ElseIf） 上述代码根据实际传递参数的情况分成三个分支来执行，相等、大于和小于。 4 超多分支结构（Select Case End Select） 很多情况下我们的选择不止三条路，也有N条路的情况，如果反复的用ElseIf不断的嵌套的话，虽然也能实现N分支，但嵌套的层数是有限的，而且也不便于维护，因而我们可以使用Select Case这种N分支结构来实现我们的选择。 8.1.3 循环结构 现实生活中有很多事情都是有规律的周而复始的重复着，例如：每天都是从凌晨00：00开始到深夜23：59结束，第二天又重复着同样的时间，第三天也是如此，……一直这么持续下去循环往复。在程序设计过程中，往往很多复杂的功能都是由一些简单的语句循环往复执行而实现的。在VBA编程中，有三种循环结构，分别是For Next结构、Do While Loop结构和While Wend结构。 1 For Next结构 这种循环结构主要在循环次数已知的情况下使用。 执行后在立即窗口中可以看到输出的情况。可以说，上述代码是循环结构中最简单的一种，一般情况下，往往在循环结构中对循环体会有更多的要求，例如，随着循环次数的增加，某些变量的值会随之发生改变。以下代码实在上述代码的基础上修改后的，用于实现在立即窗口中打印以*组成的直角三角形。 2 Do While Loop结构 这种结构的循环体内容是根据While后面逻辑表达式的值来决定是否被