的程序控制

第9章　VBA与模块

9.1　VBA基础

宏的功能很强大而且易于掌握，如果要对数据库对象进行更复杂、更灵活的控制，就需要编程来实现。模块对象可以解决此类问题，它是一种重要的Access数据库对象，以VBA（Visual Basic for Application）语言为基础编写的，是功能更强大的程序代码集合。利用模块可以将数据库中的各种对象联结起来，从而使其构成一个完整的系统。

VBA是一种应用程序开发工具，是基于VB（Visual Basic）发展而来的。微软将VB引入Office软件中用于开发应用程序，这种集成在Office中的VB被称为VBA（Visual Basic for Application）。

使用VBA编写的程序保存在Access数据库文件中，无法脱离Access应用程序环境而独立运行。

9.1.1　VBA的编程环境

VBA开发环境又称为VBE（Visual Basic Editor），在VBE中可以编写VBA函数、过程和VBA模块。VBE的打开方法同标准模块的创建方法，也可以使用Alt+F11快捷方式打开编辑环境。

VBE窗口通常由一些常用工具和多个窗口组成，如图9-1所示。

图9-1　VBE窗口

VBE编辑器主要由代码窗口、立即窗口、监视窗口、本地窗口、属性窗口、对象浏览器以及工程资源管理器等组成。

1．代码窗口

用来编写、显示和修改VBA代码。

2．工程资源管理器窗口

列出了所有的模块以及类对象。

3．属性窗口

属性窗口列出了所选对象的各个属性。

4．立即窗口

当单步执行程序时，使用该窗口可以直接输入语句或命令并查看执行结果。

5．监视窗口

用于显示当前工程中定义的监视表达式的值。

6．本地窗口

用于显示所有在当前过程在执行过程中的变量声明和变量值。

7．对象浏览器

用于显示对象模型中以及工程过程中的可用类、属性、方法、事件及常数变量。

9.1.2　VBA的语法

任何程序语言编写的代码都是由语句组成的，而语句又是由数据、表达式、函数等基本语法单位构成的。下面我们来介绍一下VBA的标准数据类型、常量、变量、运算符、表达式等内容。

VBA语句由保留字及语句体组成，而语句体由命令短语和表达式组成。

保留字和命令短语中的关键字是系统规定的专用符号，通常由英文单词或其缩写表示，必须严格按照系统要求来写。

通常每条语句占一行，一行最多允许有255个字符；如果一行书写多个语句，语句之间用冒号“：”隔开；如果某个语句在一行内没有写完，可用下划线“_”作为连接符。

1．数据类型

与其他的编程语言一样，VBA为数据操作提供了数据类型，称为基本数据类型。表9-1列出了VBA程序中的基本数据类型，以及它们所占用的存储空间、取值范围等。

表9-1　VBA的基本数据类型

2．常量

常量是指在程序可以直接引用的量，其值在程序运行期间保持不变。常量有文字常量、符号常量和系统常量3种表示形式。

文字常量也称直接常量，实际就是常数，直接出现在代码中。例如#2014-5-1#是日期型常量，5000是数值型常量，如此等等。

符号常量是用标识符来表示常量的名称，使用关键字Const来声明。例如，ConstPI= 3.14159。符号常量一般要求大写，以便与变量区分。

系统常量是Visual Basic系统预先定义的常量，用户可以直接引用。例如，vbBlack是color常数，表示黑色；True是逻辑型常量，表示真；vbOKOnly是MsgBox常数，如此等等。

3．变量

变量是在程序运行期间其值可以改变的量，是内存单元中用于存储数值的临时存储单元，可以存放各种类型的数据。

每个变量都有一个名字，需要通过变量名来引用变量。一般来说，变量的命名要有一定的意义，必须以字母开头，不能含有空格、运算符以及@、$等特殊字符，也不能使用系统保留字作为变量名。

一般来说，在程序中使用变量时需要先声明，声明变量可以起到两个作用：一是指定变量的名称和数据类型；二是指定变量的取值范围。

在变量使用之前进行声明，称为显式声明。也可以不声明直接使用变量，系统将默认该变量是变体数据类型，这种声明方式称为隐式声明。

也可以在程序开始处直接输入语句“Option Explicit”进行强制声明。变量声明语句的语法格式为：

Dim 变量名 [As 类型名|类型符] [，变量名[As 类型名|类型符]]

该语句的功能是，定义指定的变量并为其分配内存空间。“As 类型名”用于指定变量的类型。如省略，则默认变量为Variant类型。

例如，

Dim x As Single　　'声明了一个单精度型变量x。

Dim name $, address $ '声明了两个字符串变量name，address，$是字符型数据的类型符。Dim m As Currency '声明了一个货币型变量m。

变量都有一定的作用范围，即作用域。按照变量的作用域可以将变量分为局部变量、模块级变量、全局变量。

在过程内部声明的变量称为局部变量，仅仅在过程范围内有效。

在模块的起始位置、所有过程之外声明的变量，称为模块级变量，在该模块中有效。

在标准模块起始位置、所有过程之外，用Public关键字声明的变量称为全局变量，在所有类模块和标准模块的所有过程中都是可见的。

4．表达式

表达式是指用运算符将常量、变量和函数连接起来的式子。表达式的构成必须符合VBA的语法规则。

5．运算符

VBA提供许多运算符来完成各种计算和处理。根据运算的不同，可以分为算术运算符、连接运算符、关系运算符和逻辑运算符。

算术运算符用于数值的算术运算，共有7个，如表9-2所示。

表9-2　算术运算符

连接运算符用于连接两个字符串，有&和+这两种运算符。使用&运算符，会将数值型数据先转换成字符串类型后再进行连接。使用+，当字符串类型数据是数字字符串时，则直接进行加法运算。

关系运算符也称为比较运算符，其结果为布尔型数据True或者False。关系运算符有6个，分别是<，<=，>，>=，<>，=。

逻辑运算符也称为布尔运算符，运行结果为布尔型数据True或者False。按照优先级，逻辑运算符依次为Not，And，Or。

6．内部函数

内部函数也称标准函数，是VBA为用户提供的标准过程。使用这些函数，可以使某些特定的操作更加简便。

根据标准函数的功能，可以将标准函数分为数学函数、字符串函数、转换函数、日期函数、测值函数、颜色函数等。

数学函数用于数学计算，表9-3列出了常用的数学函数。

表9-3　数学函数

说明：表中的自变量x可以为常量、变量和数值表达式，但必须写在圆括号中。

字符串函数是指自变量或函数值为字符串的函数。表9-4列出了常用的字符串函数。

表9-4　字符串函数

说明：表中的n和s分别表示数值表达式和字符表达式，函数名和参数后可带后缀“$”，表明函数值为字符串。

日期函数对日期型数据进行运算，表9-5列出了常用的日期函数。

表9-5　日期函数

9.2　VBA的程序控制

VBA与其他程序设计语言一样，也具有结构化程序设计的3种结构：顺序结构、选择结构和循环结构。

9.2.1　顺序结构

在顺序结构中，通常使用赋值语句、输入语句、输出语句、注释语句等。

1．赋值语句

变量声明以后，需要为变量赋值，为变量赋值应使用赋值语句。

赋值语句的语法格式为：

变量名=表达式

该语句的功能是，首先计算表达式的值，然后将该值赋给赋值号“=”左边的变量。

已经赋值的变量可以在程序中使用，还可以改变变量的值。

2．输入语句

可以利用InputBox函数进行数据的输入。

3．输出语句

可以利用MsgBox语句进行信息输出，它没有返回值，通常使用该语句显示一条提示信息。

4．注释语句

注释语句用于对程序或语句的功能给出解释和说明。

注释语句的语法格式为：

格式1：

Rem　注释内容

格式2

'注释内容

【例9-1】在“教学管理”数据库中，创建一个模块，在其中创建一个welcome过程，可以根据输入的人名，弹出消息框表示欢迎。

操作步骤如下：

（1）打开“教学管理”数据库，选择“创建”选项卡中的“宏与代码”组，单击“模块”按钮，打开VBE窗口。

（2）在模块1的代码窗口（见图9-2）中，输入如表9-5所示的代码。

图9-2　welcome过程

（3）单击运行按钮，或者按F5功能键，查看运行效果。

9.2.2　选择结构

选择结构也称为分支结构，对给定的条件进行分析、比较和判断，并根据判断结果决定程序的走向。选择结构语句有If条件语句和Select Case语句两种。

1．If语句

1）单分支If语句

单分支If语句的语句格式如下：

格式1：

If <表达式> Then <语句>

格式2：

If <表达式> Then

<语句序列>

End If

功能：先计算表达式的值，当表达式的值为真（True）时，执行<语句序列>中的语句，然后执行if语句的下一条语句，如果表达式的值为假（False），直接执行if语句的下一条语句。

【例9-2】北京市内快递的收费标准是3公斤内收费10元，超出部分5元/公斤。编写程序根据货物的重量计算快递费用。

分析：根据题意，计算规则为：如果重量不大于3公斤，费用为10元；如果重量大于3公斤，费用为10+（重量-3）*5元。

操作步骤如下：

（1）打开“教学管理”数据库，打开VBE窗口。

（2）在模块1的代码窗口中，输入下面的代码。

Sub mailfee( )

Dim w, fee As Single

w=InputBox("请输入货物重量（公斤）"，"输入重量")

If w<=3 Then fee=10

If w>3 Then fee=10+(w-3)*5

MsgBox "需要支付的邮费是："&fee&"元"，vbOKOnly，"计算结果"

End Sub

（3）单击“运行”按钮，或者按F5功能键，查看运行效果。

2）双分支If语句

双分支If语句的语句格式如下：

格式1：

If <表达式> Then <语句1> Else <语句2>

格式2：

If <表达式> Then

<语句序列1>

Else

<语句序列2>

End If

功能：先计算<表达式>中表达式的值，当表达式的值为真（True）时，执行<语句序列1>中的语句，然后执行If语句的下一条语句；当表达式的值为真（False）时，执行<语句序列2>中的语句，然后执行If语句的下一条语句。

【例9-3】使用双分支语句重新计算例9-2中的邮费。

将代码修改如下：

Sub mailfee2( )

Dim w, fee As Single

w=InputBox("请输入货物重量（公斤）"，"输入重量")

If w<=3 Then

fee=10

Else

fee=10+(w-3)*5

End If

MsgBox "需要支付的邮费是："&fee&"元"，vbOKOnly，"计算结果"

End Sub

3）If嵌套条件语句

格式：

If ＜表达式1＞ Then

＜语句序列1＞

ElseIf ＜表达式2＞ Then

＜语句序列2＞

……

ElseIf ＜表达式n＞ Then

＜语句序列n＞

Else

＜语句序列n十1＞

End If

功能：判断条件，执行第一个满足条件的语句序列。当多个条件为True时，只能执行第一个条件为True的语句块。

【例9-4】输入一个学生的成绩score（百分制），当score=100时，输出“满分”；当90<=score<100时，输出“优秀”；当80<=score<90时，输出“良好”；当70<=score<80时，输出“一般”；当60<=score<70时，输出“及格”；当score<60时，输出“不及格”。

操作步骤如下：

（1）打开“教学管理”数据库，打开VBE窗口。

（2）在模块1的代码窗口中，输入下面的代码：

Sub grade( )

Dim score As Integer

score=InputBox("请输入成绩（0至100分）"，"输入成绩")

If score=100 Then

MsgBox "满分"

ElseIf score>=90 Then

MsgBox "优秀"

ElseIf score>=80 Then

MsgBox "良好"

ElseIf score>=70 Then

MsgBox "一般"

ElseIf score>=60 Then

MsgBox "及格"

Else

MsgBox "不及格"

End If

End Sub

（3）单击“运行”按钮，或者按F5功能键，查看运行效果。

2．Select Case语句

对于多种选择来说，可以通过If语句嵌套实现，但如果嵌套的层次多了，则容易引起混乱，因此，使用多分支控制结构将会更清晰、有效地解决此类问题。多分支控制结构语句又称情况语句。

Select Case <表达式>

Case <表达式值列表1>

<语句序列1>

Case <表达式值列表2>

<语句序列2>

……

Case <表达式值列表n>

<语句序列n>

Case Else

<语句序列n+1>

End Select

功能：执行该语句时，计算<表达式>的值，然后进行判断，如果表达式的值与第i（i=1，2，…，n）个表达式值列表的值相匹配，则执行语句序列i中的语句，如果<表达式>的值与所有的<表达式列表>中的值都不匹配时，则执行语句序列n+1。

【例9-5】使用Select Case重新编程实现例9-4的功能。

将代码修改如下：

Sub grade2( )

Dim score As Integer

Dim s As Integer

score=InputBox("请输入成绩（0至100分）"，"输入成绩")

s=Int(score/10)

Select Case s

Case10

MsgBox"满分"

Case9

MsgBox"优秀"

Case8

MsgBox"良好"

Case7

MsgBox"一般"

Case6

MsgBox"及格"

Case Else

MsgBox"不及格"

End Select

End Sub

9.2.3　循环结构

循环结构能够使某些语句或程序段重复执行若干次。每一个循环都由循环的初始状态、循环体、循环计数器和条件表达式等4个部分组成。实现循环结构的语句有3种：For…Next语句、While…Wend语句和Do…Loop语句。

1．For…Next语句

如果能够确定循环执行的次数，可以使用For…Next语句。For…Next语句通过循环变量来控制循环的执行，每执行一次，循环变量会自动增加（减少）。

For…Next语句的语句格式为：

For <循环变量>=<初值> to <终值> [Step<步长>]

<循环体>

　　[ExitFor]

Next <循环变量>

功能：用循环计数器<循环变量>来控制<循环体>内的语句的执行次数。先将<初值>赋给<循环变量>，然后判断<循环变量>是否超过<终值>，若超过则结束循环，执行Next后面的语句；否则执行<循环体>内的语句，再将<循环变量>自动增加一个<步长>，再重新判断<循环变量>的值是否超过<终值>，若结果为真，则结束循环，重复上述过程。

说明：

（1）<循环变量>是数值型的变量，通常为整型变量。

（2）<步长>是<循环变量>的增量，通常取大于0或小于0的数。

（3）<循环体>是在For语句和Next语句之间的语句序列，可以是一条或多条语句。

（4）Next后面的循环变量与For语句中的循环变量必须相同，For语句和Next语句必须成对出现。

（5）Exit For：当执行到该语句时，退出循环，执行Next下面的语句。

语句执行过程：

（1）将初值赋给循环变量，并自动记下终值和步长。

（2）判断循环变量的值是否超过终值。如果没有超过，执行一次循环体；如果超过就结束循环，执行Next后面的语句。这里所说的“超过”有两种含义，即大于或小于。当步长为正值时，循环变量大于终值为“超过”；当步长为负值时，循环变量小于终值为“超过”。

（3）执行Next语句，将循环变量增加一个步长值，转到（2）继续循环。

【例9-6】编写程序求1+3+5+…+99的值。

操作步骤如下：

（1）打开“教学管理”数据库，打开VBE窗口。

（2）在模块1的代码窗口中，输入下面的代码：

Sub Sum( )

Dim Sum As Integer, i As Integer

Sum=0　 　 　'保存累加和，先清零

For i=1 To 99 Step2

Sum=Sum+i

Next i

MsgBox "1+3+5+…+99=" & Sum

End Sub

（3）单击“运行”按钮，或者按F5功能键，查看运行效果。

2．While…Wend语句

While…Wend语句的格式如下：

While<条件表达式>

<循环体>

Wend

功能：计算<条件表达式>的值并进行判断，如果为假，则退出循环，执行Wend下面的语句；如果为真，则执行<循环体>的语句，然后再判断条件表达式的值，重复该过程。

说明：

（1）While循环语句本身不能修改循环条件，所以必须在While…Wend语句的循环体内设置相应语句，使得整个循环趋于结束，以避免死循环。

（2）While循环语句先对条件进行判断，然后才决定是否执行循环体。如果开始条件就不成立，则循环体一次也不执行。

语句执行过程：

（1）判断条件是否成立，如果条件成立，就执行循环体；否则转到（3）执行。

（2）执行Wend语句，转到（1）执行。

（3）执行Wend语句下面的语句。

【例9-7】编写程序求1+2+3+…+100的值。

操作步骤如下：

（1）打开“教学管理”数据库，打开VBE窗口。

（2）在模块1的代码窗口中，输入下面的代码：

Sub Sum2( )

Dim Sum As Integer, i As Integer

Sum=0　　'保存累加和，先清零

i=1

While i<=100

Sum=Sum+i

i=i+1

Wend

MsgBox "1+2+3+…+100=" & Sum

End Sub

（3）单击“运行”按钮，或者按F5功能键，查看运行效果。

3．Do…Loop语句

Do…Loop也是实现循环结构的语句，它有Do While…Loop和Do…Loop While 2种形式。

Do While…Loop的语句格式：

Do While<条件表达式>

　　<循环体>

Loop

功能：计算<条件表达式>的值并进行判断，如果为假，则退出循环，执行Loop下面的语句；如果为真，则执行<循环体>的语句，然后再判断条件表达式的值，重复该过程。

Do…Loop While的语句格式：

Do

　　<循环体>

Loop While<条件表达式>

功能：首先执行<语句序列>的语句，然后计算<条件表达式>的值并进行判断，如果<条件表达式>为假，则退出循环，执行Loop下面的语句；如果为真，则执行<循环体>的语句，重复该过程。

【例9-8】编写一个程序，使用两种Do…Loop形式计算由键盘输入的任意个学生成绩的平均值。

操作步骤如下：

（1）打开数“教学管理”据库，打开VBE窗口。

（2）在模块1的代码窗口中，输入下面的代码：

Sub avg1( )

Dim Data As Integer，Sum As Integer，n As Integer

Dim Average As Single

Sum=0

n=0

Data=InputBox("输入第"& n+1 &"个同学的成绩"，"求平均分")

Do While Data < >-1 　 　'-1表示结束输入

Sum=Sum+Data

n=n+1

Data=InputBox("输入第"& n+1 &"个同学的成绩"，"求平均分")

Loop

Average=Sum/n

MsgBox n & "位同学的平均分为"& Average，vbOKOnly，"求平均分"

End Sub

（3）在模块1的代码窗口中，输入下面的代码：

Sub avg2( )

Dim Data As Integer，Sum As Integer，n As Integer

Dim Average As Single

Sum=0

n=0

Data=InputBox("输入第"&n+1&"个同学的成绩"，"求平均分")

Do Until Data=-1　　'-1表示结束输入

Sum=Sum+Data

n=n+1

Data=InputBox("输入第"&n+1&"个同学的成绩"，"求平均分")

Loop

Average=Sum/n

MsgBox n &"位同学的平均分为"& Average，vbOKOnly，"求平均分"

End Sub

请读者比较两种代码的不同。

9.3　模块

9.3.1　模块的概念

模块是VBA代码的容器，使用模块可以建立自定义函数或者过程，引用数据库中的对象。模块主要由VBA声明语句和一个或者多个过程组成。

声明部分主要包括Option声明，变量、常量或者自定义数据类型的声明。

1．Option Explicit语句

强制显式声明模块中的所有变量，即要求变量在使用之前必须先进行声明。如果没有使用Option Explicit语句，变量未经定义就可以使用。

2．Option Base 1语句

声明模块中数组下标的默认下界为1，不声明则为0。

3．Option Compare Database语句

声明模块中需要字符串比较时，将根据数据库的区域ID确定的排序级别进行比较；不声明则按字符ASCⅡ码进行比较。

9.3.2　模块的分类

在Access中，模块分为两种类型：类模块和标准模块（简称模块）。

类模块是与类对象相关联的模块，当为窗体等类对象或者控件创建第一个事件过程的时候，Access将自动创建与之关联的类模块。同嵌入宏一样，类模块不会出现在导航窗格的模块对象中。

用户也可以自己定义一个独立的类模块，包括成员变量和方法的定义，然后在过程中通过定义的类来创建对象。独立的类模块是可以在导航窗格中看到的，这涉及面向对象编程思想，在此不做过多阐述。

标准模块是存放通用过程的模块，主要包含公用函数过程和子过程，这些公用过程不与任何对象关联，可以被任何数据库对象使用。标准模块中的公共变量或公共过程具有全局性，其作用范围在整个应用程序的生命周期内。

9.3.3　模块的创建

1．窗体模块和报表模块的创建

只要为窗体或者报表创建了第一个事件过程，就创建了对应的代码模块。在窗体或者控件的属性表中，单击事件选项卡中某个事件后面的生成器按钮，选择“代码生成器”，即可打开VBA编辑器，此时系统自动创建一个类模块。

2．标准模块的创建

标准模块的创建有3种方法：

（1）在数据库窗口“创建”选项卡上的“宏与代码”组中单击“模块”按钮。

（2）在数据库窗口“创建”选项卡上的“宏与代码”组中单击“Visual Basic”按钮，打开VBA编辑器。在“插入”菜单中选择“模块”。

（3）在VBA编辑器中的“工程管理器”任意区域，从右键快捷菜单中插入模块。

9.3.4　过程

过程是模块的主要组成部分，也是VBA编写程序的最小单元，用于完成一个相对独立的操作。过程可以分为事件过程和通用过程。

事件过程就是事件的处理程序，用于完成窗体等对象事件的任务，如按钮的单击事件等，它是为了响应用户或系统引发的事件而运行的过程。

通用过程是用户自行编写的程序代码，可以独立运行或者由别的过程调用。

事件过程与通用过程的区别是前者的名字是由系统自动生成，并且依附于窗体等对象而存在，而后者是由用户自己按照习惯命名并且是独立存在的。

过程是由VBA代码组成的单元。它包含一系列执行操作或计算值的语句和方法。过程分两种类型：Sub子过程和Function函数过程。

1．Sub过程

Sub子过程执行一项操作或一系列操作，是执行特定功能的语句块。Sub子过程可以被置于标准模块或类模块中。所有的Sub过程都要事先定义，然后被其他的模块调用。Sub过程定义的格式如下：

[Public|Private] [Static] Sub 子过程名（<形参表>）

　[子过程语句]

　[ExitSub]

[子过程语句]

End Sub

Sub过程由Sub语句开头，以End Sub结束。Public和Private关键字用于说明子过程的访问属性。Static表示子过程为静态子过程。Sub子过程不需要返回值。

调用子过程的语句格式如下：

Call子过程（实参表）

或

　　子过程（实参表）【例9-9】编写一个程序，计算斐波那契数列的第10项。分析：斐波那契级数是这样定义的：第一、二项为1，第三项开始，每一项的值是前两项值之和。

操作步骤如下：

（1）打开“教学管理”数据库，打开VBE窗口。

（2）在模块1的代码窗口中执行“插入”菜单的“过程”命令，弹出“添加过程”对话框，如图9-3所示。

图9-3　“添加过程”对话框

（3）创建一个名称为fab的过程，系统会自动生成如下代码：

Public Sub fab( )

End Sub

这就是使用菜单添加过程的方法，与手工输入代码的效果是一样的。

在该过程内输入：

Dim A，B，i，T As Integer

A=1

B=1　　 　'生成级数第一、二项

For i=3 To 10

T=A+B　　 '产生级数新的一项

A=B　　　　 '让B成为下一组的A

B=T　　　　　 　'原来A+B的值成为下一组的B

Next i

MsgBox "斐波那契数列的第10项是："&B

运行该过程，查看运行结果。

2．Function函数过程

函数定义的格式如下：

[Public|Private] [Static] Function 函数过程名（<形参表>）[As 数据类型]

[函数过程语句]

[ExitFunction]

[函数过程语句]

函数名=表达式

End Function

Function函数过程与Sub过程的区别是它可以有返回值。

【例9-10】编写一个程序，计算斐波那契数列的任意项。

分析：可以先写一个Function函数过程，参数为n，用以计算斐波那契数列的第n项，然后在另外一个过程中调用这个函数。

操作步骤如下：

（1）打开“教学管理”数据库，打开VBE窗口。

（2）在模块1的代码窗口中执行“插入”菜单的“过程”命令，弹出“添加过程”对话框，如图9-4所示。

图9-4　“添加过程”对话框

（3）创建一个名称为f的函数，系统会自动生成Function函数过程的框架，增加参数和代码如下：

Public Function f (n As Integer)

Dim A，B，i，T As Integer

A=1

B=1　　 　'生成级数第一、二项

For i=3 To n

T=A+B　　'产生级数新的一项

A=B　　 　'让B成为下一组的A

B=T　　 　'原来A+B的值成为下一组的B

Next i

f=B

End Function

注意：这个函数是不能直接执行的，必须新建一个过程fab1( )来调用它，代码如下：

Public Sub fab1( )

Dim m As Integer

m=InputBox("计算第几项斐波那契数列？")

MsgBox "第" & m & "项斐波那契数列是："& f(m)

End Sub

在过程fab1( )中调用了f函数，而m是从键盘得到的项数，用作f函数的参数。

9.4　VBA程序的调试

VBA代码输入后，在运行过程中，不可避免地会出现各种错误。这时，就需要借助调试工具，快速定位错误。VBE环境提供了一整套完整的调试工具和方法。

VBA代码运行时，可能会产生3种类型的错误：编译时错误、运行时错误和逻辑错误。

编译时错误是在程序编译时，由于变量未定义、忘了语句配对（如If和End If或者For和Next）或拼写错误等原因产生的不正确代码而引起的错误。

运行时错误发生在应用程序开始运行之后的错误。运行时错误包括企图执行非法运算，例如被零除或向不存在的文件中写入数据。

逻辑错误是编程人员在程序设计或者编写的时候犯下的错误，无法得到预期的运行结果。例如，循环变量的初值和终值设置错误、变量类型不正确、语句代码顺序不正确等。

9.4.1　错误调试

1．设置断点

通过设置断点，可以挂起代码。挂起的代码仍在运行当中，只是在某个语句位置暂停下来。

将光标定位到准备设置断点的代码行，单击“调试菜单中的切换断点”按钮，或者按F9功能键，可以设置或者取消断点。

下面以计算1+3+5+…+99的sum过程为例，来设置断点调试程序。

在Sum=Sum+i所在的代码行设置一个断点，如图9-5所示。

图9-5　设置断点

设置好断点后，按运行按钮或者F5功能键，则运行到该过程的断点行时程序会停下来，该代码行以黄色显示。

此时查看本地窗口，可以观察到当前过程中的所有变量和其当前值，如图9-6所示。

图9-6　本地窗口

2．单步执行

单步执行用于检查程序每一条语句的执行结果，可以与本地窗口配合，观察每个变量的变化情况。

在程序运行到断点所在的代码行时，执行“调试”菜单中的“逐语句”命令或者按下F8功能键，则当前代码被执行（下一条待执行的代码会黄色显示）。此时观察本地窗口，可以看到Sum值发生了变化。反复单步执行，能够在本地窗口中观察到Sum变量累加的过程。

当代码出现错误时，可以在代码中的适当位置添加MsgBox语句，或者使用debug.print语句（结果显示在立即窗口中，也可以在立即窗口中输入“debug.print变量名”来查看变量值），显示代码中变量的值，从而推断错误出处。

9.4.2　错误处理

错误处理，就是当代码运行时，如果发生错误，可以捕获错误，并按照程序设计者事先设计的方法来处理。使用错误处理的好处是：代码的执行不会中断，甚至可以让用户感觉不到错误的存在。

在代码中使用On Error语句，当运行错误发生时，将错误拦截下来。

On Error语句的形式有3种：

1．On Error Resume Next

当错误发生时，忽略错误行，继续执行下面的语句，不停止代码的执行。

2．On Error GoTo语句标号

当错误发生时，直接跳转到语句标号位置所示的错误处理代码，错误处理代码需要实现写好。

3．On Error GoTo 0

禁止当前过程中任何已启动的错误处理程序。

思考题

（1）什么VBA？

（2）VBA有哪几种程序控制结构？

（3）什么是模块，简述类模块和标准模块的区别？

（4）什么是事件过程？什么是通用过程？

（5）事件过程和通用过程有什么区别？

（6）过程与函数有什么区别？

上机题

（1）出租车的计价方式为：起步3公里13元，每超出1公里加收2元。编写一个taxi( )过程，根据用户输入的里程（单位：公里）计算应支付金额。

（2）编写一个mysum过程，分别为For…Next语句、While…Wend语句和Do…Loop语句，计算1+2+…+100。（3）编写一个add过程，用来计算1+2+…+n，n是大于1的整数，由用户从键盘输入。（4）编写一个函数add(n)，用来计算1+2+…+n，n是大于1的整数，从另外一个过程mainadd( )调用这个函数得到计算结果。

（5）创建一个窗体“查看日期”，新建一个命令按钮，单击该按钮时会弹出一个消息框，提示当前日期。