VBA流程控制语句：简易教程

VBA程序设计有三种基本控制结构：顺序结构、选择结构、循环结构。所有程序都由这三种基本控制结构组成。顺序结构是程序流程中最简单的控制结构，如果编写较为复杂的程序需要使用选择结构和循环结构语句来对程序进行流程控制。

知识点1　赋值语句

赋值语句可以将常量或常量表达式的值赋给变量或对象的属性，其一般格式为：

<变量名>=<表达式>或[<对象名.>]<属性名>=<表达式>

其中，<变量名>应符合变量的命名规则，<对象名>缺省时为当前窗体或报表。

首先计算“=”（赋值运算符）右边表达式的值，将此值赋给“=”左边的变量或对象属性。

1.Print方法

在VBA中可以使用Print方法在窗体及打印机上输出文本数据或表达式的值。一般格式为：

[对象名].print表达式

如果省略对象名，则在当前窗体上输出；如果在立即窗口中输出，对象名应为“De⁃bug”。

图7-13中的PrintStar过程运行后，在立即窗体中的显示效果如图7-14所示。

图7-13　Print过程代码窗口

图7-14　立即窗口运行效果

2.InputBox函数

InputBox函数可以产生一个输入对话框，等待用户输入数据并返回所输入的内容。一般格式为：

Inputbox（提示字符串[，对话框标题字符串][，默认输入数据]）

在默认情况下，InputBox函数的返回值是一个字符串。因此，当需要用InputBox函数输入数值时，必须在进行计算前用Val函数转换为数值类型数据，否则可能会得到不正确的结果。

3.MsgBox函数和MsgBox语句

MsgBox函数或语句可以产生一个消息框，消息框中给出提示信息，用户可以根据提示信息选择后面的操作。

函数格式为：

Msgbox（消息字符[，按钮与图标样式][，对话框标题字符串]）

语句格式为：

Msgbox消息字符[，按钮与图标样式][，对话框标题字符串]

两种格式的区别是，MsgBox函数会产生一个返回值，用户需要将返回值赋给一个变量。MsgBox语句无返回值，仅是单纯的信息显示。

知识点2　顺序结构

顺序结构就是按照程序代码编写的顺序依次执行。顺序结构主要介绍赋值语句和输入输出语句。在VBA中常使用InputBox函数和MsgBox函数进行数据的输入和输出。

知识点3　选择结构

选择结构又称分支结构，根据条件表达式的值执行相应的操作。选择结构可分为单分支选择结构、双分支选择结构和多分支选择结构。

1.单分支If语句

格式1：

If<条件表达式>Then

<语句>

End If

格式2：

If<条件表达式>Then<语句>

计算条件表达式的值，若值为“真”（True）则执行Then后面的语句，若值为“假”（False）则退出If语句继续执行下面的程序。

2.双分支If语句

格式1：

If<条件表达式>Then

<语句1>

Else

<语句2>

End If

格式2：

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

计算条件表达式的值，若值为“真”（True）则执行语句1，否则执行语句2。

3.多分支if语句

格式：

If<条件表达式1>Then

<语句1>

ElseIf<条件表达式2>Then

<语句2>

…

ElseIf<条件表达式n>Then

<语句n>

Else

<语句n+1>

End If

计算条件表达式1的值，若值为“真”（True）则执行语句1，否则计算条件表达式2的值，若值为“真”（True）则执行语句2，重复上述操作。当全部条件表达式的值都不为“真”（True）时，执行语句n+1。

4.多分支Select Case控制语句

格式：

Select Case<测试变量或表达式>

Case<表达式1>

<语句1>

Case<表达式2>

<语句2>

…

Case<表达式n>

<语句n>

[Case Else

语句n+1]

End Select

Select Case语句在执行时，先计算测试变量或表达式的值，然后寻找该值与哪一个Case子句的表达式值匹配，找到后则执行该Case语句，之后退出Select结构；如果测试变量或表达式的值与全部Case子句的表达式值都不匹配，则执行Case Else语句，之后退出Select结构。

知识点4　循环结构

在实际使用中，有些循环的次数可以事先确定，而有些循环不能确定。VBA中有3种形式的循环语句：For循环、While循环和Do循环。其中，For循环用于已知循环次数的情况下，While循环和Do循环用于不确定循环次数的情况下。下面重点介绍For循环语句和Do循环语句。

1.For循环语句

格式：

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

<循环体>

Next[循环变量]

For循环的执行过程：首先把初值赋给循环变量，接着判断循环变量的值是否超过终值，如果超过就不执行循环体，直接跳出For循环，执行Next后面的语句；否则执行循环体，之后将循环变量增加步长值后再赋给循环变量，继续判断循环变量的值是否超过终值，重复上述步骤直到For循环正常结束。

【说明】

循环变量必须为数值型。

循环的初值、终值和步长都是数值表达式。其中，增量参数可正可负。如果没有设置step，则增量默认为1。

Next是循环终端语句，在Next后面的循环变量与For中的循环变量必须相同。当只有单层循环时，Next后面的循环变量可以不写。

当初值等于终值时，不管步长是正数还是负数，都执行一次循环体。

循环次数由初值、终值和步长决定，计算公式为：

循环次数=Int（（终值-初值）/步长+1）

除了For语句以计算值来判断循环是否结束之外，还可以用Exit For语句强制结束循环。通常Exit For语句和If语句配合使用，代表在某种特定情况下，循环中的程序不再继续进行。

2.Do循环语句

Do…Loop循环用于事先不知道循环次数的循环结构。此语句共有4种语法格式：Do While…Loop语句、Do…Loop While语句、Do Until…Loop语句和Do…Loop Until语句。前两种格式当循环条件为真时执行循环体语句，后两种当循环条件为假时执行循环体语句。

①Do While | Until…Loop语句

格式：

Do While | Until<条件表达式>

<循环体>

[Exit Do]

<循环体>

Loop

【说明】

●条件表达式的值应是逻辑型。

●Do While和Loop应成对出现。

●循环体中要有控制循环次数的语句，以避免出现死循环。

●由于该循环的特点是先判断条件，然后再决定是否要执行循环体语句中的语句。所以，这种循环可以一次也不执行循环体。

●Exit Do表示当遇到该语句时，强制退出循环，执行Loop后的下一条语句。

②Do….While|Until Loop语句

格式：

Do

<循环体>

[Exit Do]

<循环体>

Loop…While|Until <条件表达式>

【说明】

●至少要执行循环体一次。

●与Do While循环的区别：Do While循环先测试条件是否成立，只有成立才执行循环；而该循环先执行循环体，后测试条件是否成立。

知识点5　数组

数组是包含相同数据类型的一组变量的集合。数组可以是一维的、二维的或多维的。数组元素由数组名和下标来区分。

1.一维数组的声明

方法1：Dim数组名（小标上界）As数据类型

例如：

Dim a（5）As Integer

数组a中包含6个整形元素，分别为a（0）、a（1）、a（2）、a（3）、a（4）、a（5）。

【说明】数组元素下标从0开始。

方法2：Dim数组名（下标下界To下标上界）As数据类型

例如：

Dim a（-2 To 2）As Integer

数组a中包含5个整形元素，分别为a（-2）、a（-1）、a（0）、a（1）、a（2）。

2.多维数组的声明

方法1：Dim数组名（第1维下标上界，第2维xiabiaxiabiao下标上界，…..）As数据类型

例如：

Dim a（2，3）As Integer声明了一个二维数组，数据包含12个元素，分别为a（0，0）、a（0，1）、a（0，2）、a（0，3）、a（1，0）、a（1，1）、a（1，2）、a（1，3）、a（2，0）、a（2，1）、a（2，2）、a（2，3）。

方法2：Dim数组名（第1维下标下界To上界，第2维下标下界To上界，…..）As数据类型

例如：

Dim a（1 To 2，-1 To 1）As Integer

（3）数组元素的引用。格式如下：

数组名（第1维下标，[第2维下标]，…..）

知识点6　过程

VBA过程可分为Sub子过程和Function函数过程两种。Sub子过程无返回值，Func⁃tion函数过程有参数和返回值。

1.Sub子过程

格式：

[public|private] [static]sub过程名（[参数As数据类型]）

过程语句

[Exit Sub]

过程语句

End Sub

使用Public关键字可以使该过程适用于所有模块中的其他过程；使用Private关键字则使该过程只适用于同一模块中的其他过程。

子过程调用的形式：Call过程名（[实参]）或者过程名[实参]

2.Function函数过程

格式：

[public|private] [static] Function函数名（[参数As数据类型]）

函数过程语句

函数名=表达式

[Exit Function]

函数过程语句

函数名=表达式

End Function

函数过程调用的形式：函数过程名（[实参]）

【工作任务】

【案例7-2】创建Area过程，其功能是计算圆的面积，半径值从键盘随机输入。

【案例效果】图7-15是创建好一个计算从键盘上随机输入一个圆的半径，然后通过消息框显示运行后的结果如图7-16所示。通过本案例的学习，可以学会VBA顺序结构程序设计的基本方法。

图7-15　InputBox输入对话框效果

图7-16　案例7-2　运行效果

【设计过程】

Area过程代码如下：

Public Sub Area（）

Dim r As Integer

Dim s As Single

r=Val（InputBox（“请输入圆半径值：”，”提示输入”））

s=3.14*r*r

MsgBox”圆面积：”& s，vbOKOnly+vbInformation，”计算结果”

End Sub

过程运行后弹出输入对话框（见图7-15），输入任意半径值后，单击“确定”按钮，弹出消息框显示面积值，如图7-16所示。

【案例7-3】创建Grade过程，其功能是：判断分数等级（优秀、良好、中等、及格、不及格共5个等级），分数值从键盘随机输入。

【案例效果】图7-17是判断分数等级（优秀、良好、中等、及格、不及格共5个等级），分数值从键盘随机输入。然后通过消息框显示运行后的结果如图7-18所示。通过本案例的学习，可以学会VBA分支结构程序设计的基本方法。

图7-17　InputBox输入对话框效果

图7-18　案例7-3　运行效果

【设计过程】

过程代码如下：

Public Sub Grade（）

Dim mark As Single

Mark=Val（InputBox（“请输入一个成绩值：”、”输入提示”））

If mark<0 Then

Msgbox”成绩值不能为负数，请重新输入！”、vbOKOnly+vbExclamation，”错误信息”

ElseIf mark<60 Then

MsgBox”不及格”、vbOKOnly+vbInformation、”判断结果”

ElseIf mark<70 Then

MsgBox”及格”、vbOKOnly+vbInformation、”判断结果”

ElseIf mark<80 Then

MsgBox”中等”、vbOKOnly+vbInformation、”判断结果”

ElseIf mark<90 Then

MsgBox”良好”、vbOKOnly+vbInformation、”判断结果”

ElseIf mark=100 Then

MsgBox”优秀”、vbOKOnly+vbInformation、”判断结果”

Else

Msgbox”成绩值不能大于100，请重新输入！”、vbOKOnly+vbExclamation，”错误信息”

End If

End Sub

【案例7-4】创建Change过程，其功能是，将输入的英文星期转换成中文星期。

【案例效果】图7-19是根据输入的英文星期转换为中文星期，然后通过消息框显示运行后的结果如图7-20所示。通过本案例的学习，可以学会VBA多分支控制结构程序设计的基本方法。

图7-19　InputBox输入对话框效果

图7-20　案例7-4　运行效果

【设计过程】

过程代码如下：

Public Sub Change（）

Dim exq As string

Dim cxq As string

exq=InputBox（“请输入英文星期：”）

Select Case exq

Case”Monday”

Cxq=”星期一”

Case”Tuesday”

Cxq=”星期二”

Case”Wendesday”

Cxq=”星期三”

Case”Thursday”

Cxq=”星期四”

Case”Friday”

Cxq=”星期五”

Case”Saturday”

Cxq=”星期六”

Case”Sunday”

Cxq=”星期日”

Case Else

Cxq=”输入无效”

End Select

MsgBox cxq，vbOKOnly+vbInformation、”转换结果”

End Sub

【案例7-5】创建Sum过程，其功能是：计算前100个自然数中奇数的和。

【案例效果】图7-21是计算前100个奇数的累加和消息框显示结果。通过本案例的学习，可以学会VBA中FOR循环结构程序设计的基本方法。

图7-21　案例7-5　运行效果

【设计过程】

过程代码如下：

Public Sub Sum（）

Dim i As Integer

Dim s As Integer

s=0

For i=1 To 100 Step 2

s=s+i

Next i

MsgBox”前100个自然数中奇数的和是：”& s

End Sub

【案例7-6】创建Shuixianhua过程，其功能是：统计水仙花数的个数。（水仙花数是三位数，且各位数字的立方和等于这个数本身。）

【案例效果】图7-22是统计水仙花数的个数消息框显示结果。通过本案例的学习，可以学会VBA中FOR嵌套循环结构程序设计的基本方法。

图7-22　案例7-6　运行效果

【设计过程】

过程代码如下：

Public Sub Shuixianhua（）

Dim i as Integer

Dim j as Integer

Dim k as Integer

Dim m as Intege

Dim num as Integer

num=0

For i=1 To 9

For j=0 To 9

For k=0 To 9

m=i*100+j*10+k

If m=i*i*i+j*j+k*k*k Then

Num=num+1

End If

Next k

Next j

Next i

MsgBox”水仙花数共有”& num &”个”

End Sub

【案例7-7】创建Sum过程，其功能是：计算前100个自然数中偶数的和。

【案例效果】图7-23是计算前100个偶数的累加和消息框显示结果。通过本案例的学习，可以学会VBA中Do while和Do until循环结构程序设计的基本方法。

图7-23　案例7-7　运行效果

方法1：Do while结构

【设计过程】

过程代码如下：(www.xing528.com)

Public sub sum（）

Dim s As Integer，i As Integer

s= 0

i= 0

Do While i <= 100

s = s + i

i =i+ 2

Loop

MsgBox”前100个自然数中偶数的和是：”& s

End Sub

方法2：Do until结构

【设计过程】

过程代码如下：

Public sub sum（）

Dim s As Integer，i As Integer

s= 0

i= 0

Do until i > 100

s = s + i

i =i+ 2

Loop

MsgBox”前100个自然数中偶数的和是：”& s

End Sub

【案例7-8】创建Zuizhi过程，其功能是：从键盘输入10个随机值，找出其中的最大值和最小值。

【案例效果】图7-24是根据输入的10个数，然后通过消息框显示运行后的结果如图7-25所示。通过本案例的学习，可以学会VBA数组的基本使用方法。（本例题输入的10个数分别为：12、18、58、41、66、73、8、27、55、70）

图7-24　InputBox输入对话框效果

图7-25　案例7-8　运行效果

【设计过程】

参考过程代码如下：

Public Sub Zuizhi（）

Dim a（1 To 10）As Integer

Dim max As Integer，min As Integer，i As Integer

For i=1 To 10

a（i）=Val（InputBox（“请输入第”&i&“个整数”，“输入提示”））

Next

Max=a（1）

Min=a（1）

For i-=2 To 10

If a（i）>max Then max=a（i）

If a（i）<min Then min=a（i）

Next

MsgBox“最大值是：”& max &“最小值是：”& min

End Sub

【案例7-9】创建一个“求方程根”窗体，在窗体的主体节中放置5个标签控件、3个文本框控件和1个命令按钮控件，界面设计如图7-26所示。单击“计算”按钮后，计算出方程的根并显示出来。

【案例效果】图7-27是利用求一元二次方程的根的结果。通过本案例的学习可以学会过程和过程调用的基本方法。

图7-27　案例7-9　运行效果

【设计过程】

图7-26　“求方程根”窗体设计视图

（1）新建一个窗体对象以“求方程根”为标题，按照图7-26对窗体主体节中的控件进行布局，将3文本框控件的名称分别设置为Text1、Text2、Text3。

（2）在“计算”按钮上右击，从弹出的快捷键菜单中选择“事件生成器”，在打开的“选择生成器”对话框中选择“代码生成器”，单击“确定”按钮，打开代码编辑窗口。

（3）“计算”按钮下的参考过程代码如下：

Private Sub Command1_Click（）

Dim a As Integer，b As Integer，c As Integer

Text1.SetFocus

a=Val（Text1.Text）

Text2.SetFocus

b=Val（Text2.Text）

Text3.SetFocus

c=Val（Text3.Text）

Call fangcheng（a，b，c）

End Sub

（4）添加fangcheng（）过程，参考过程代码如下：

Public Sub fangcheng（x As Integer，y As Integer，z As Integer）

Dim m As Integer

Dim x1 As Double，x2 As Double

m=y*y-4*x*z

If x=0 Then

MsgBox”x=”&-z/y，vbOKonly+vbInformation，”输出结果”

Else

If m>=0 Then

x1=（-y+Sqr（m））/（2*x）

x2=（-y+Sqr（m））/（2*x）

MsgBox”x1=”& x1 &”x2=”& x2，vbOKonly+vbInformation，”输出结果”

Else

MsgBox”方程无实根！“，vbOKonly+vbInformation，”输出结果”

End If

End If

End Sub

（5）运行“求根方程”窗体，在文本框中输入系数值，单击“计算”按钮后弹出消息框显示计算结果，如图7-27所示。

【实战演练】

1.编写一个过程，显示出当前的系统日期和时间，运行效果如图7-28所示。

图7-28　当前日期和时间消息框运行效果

2.编写一个按钮的事件过程，根据在窗体文本框中输入的工资给出应缴纳的个人所得税金额，如图7-29所示。税金计算表达式如下：

图7-29　个人所得税运行效果

3.编写事件过程用来实现登录窗体上的“确定”和“退出”功能。当在窗体的文本框中输入正确的用户名和密码“user”后，打开另一个窗体并关闭当前登录窗体；当输入错误时能判断是下面哪种情况并给出相应的提示信息：

a.两个文本框为空

b.用户名输入错误

c.密码输入有误

d.用户名和密码均输入有误

4.定义一个函数过程，计算长方体的体积和表面积。

【任务评价】

【习题】

一、选择题

1.使用Function语句定义一个函数过程，其返回值的类型（　）。

A.只能是符号常量

B.是除数组之外的简单数据类型

C.可在调用时由运行过程决定

D.由函数定义时As子句声明

2.定义了二维数组A（2 TO 5，5），则该数组的元素个数为（　）。

A.25　B.36　C.20　D.24

3.下列不是分支结构的语句是（　）。

A.If ...Then…EndIf　B.While…Wend

C.If…Then…Else…EndIf　D.Select…Case…End Select

4.下列程数据类型中，不属于VBA的是（　）。

A.长整型　B.布尔型　C.变体型　D.指针型

5.用于获得字符串S最左边4个字符的函数是（　）。

A.Left（S，4）　B.Left（S，1，4）

C.Leftstr（S，4）　D.Leftstr（S，1，4）

6.执行语句：MsgBox”AAAA”，vbOKCancel+vbQuetion，“BBBB”之后，弹出的信息框（）。

A.标题为“BBBB”、框内提示符为“惊叹号”、提示内容为“AAAA”

B.标题为“AAAA”、框内提示符为“惊叹号”、提示内容为“BBBB”

C.标题为“BBBB”、框内提示符为“问号”、提示内容为“AAAA”

D.标题为“AAAA”、框内提示符为“问号”、提示内容为“BBBB”

7.窗体中有3个命令按钮，分别命名为Command1、Command2和Command3。当单击Command1按钮时，Command2按钮变为可用，Command3按钮变为不可见。下列Com⁃mand1的单击事件过程中，正确的是（　）。

A.private sub Command1_Click（）

Command2.Visible = true

Command3.Visible = false

B.private sub Command1_Click（）

Command2.Enable = true

Command3.Enable = false

C.private sub Command1_Click（）

Command2.Enable = true

Command3.Visible = false

D.private sub Command1_Click（）

Command2.Visible = true

Command3.Enable = false

8.由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行（　）。

A.0次　B.1次　C.4次　D.5次

9.在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：

Option Compare Database

Dim a As String * 10

Private Sub Command1_Click（）

a = "1234"

b = Len（a）

Me.Lb1.Caption = b

End Sub

打开窗体后单击命令按钮，窗体中显示的内容是（　）。

A.4　B.5　C.10　D.40

10.下列程序段的功能是实现“学生”表中“年龄”字段值加1

Dim Str As String

Str=" "

Docmd.RunSQL Str

空白处应填入的程序代码是（　）。

A.年龄=年龄+1　B.Update学生Set年龄=年龄+1

C.Set年龄=年龄+1　D.Edit学生年龄=年龄+l

11.在窗体中有一个文本框Test1，编写事件代码如下：

Private Sub Form_Click（）

X= val（Inputbox（“输入x的值”））

Y= 1

If X<>0 Then Y= 2

Text1.Value = Y

End Sub

打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是（　）。

A.1　B.2　C.3　D.4

12.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：

Private Sub Command1_Click（）

a = 75

If a>60 Then

k = 1

ElseIf a>70 Then

k = 2

ElseIf a>80 Then

k = 3

ElseIf a>90 Then

k = 4

EndIf

MsgBox k

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果是（　）。

A.1　B.2　C.3　D.4

13.设有如下窗体单击事件过程：

Private Sub Form_Click（）

a = 1

For i= 1 To 3

Select Case i

Case 1，3

a= a+1

Case 2，4

a = a+2

End Select

Next i

MsgBox a

End Sub

打开窗体运行后，单击窗体，则消息框的输出结果是（　）。

A.3　B.4　C.5　D.6

14.设有如下程序

Private Sub Command1_Click（）

Dim sum As Double，x As Double

sum = 0

n = 0

For i=1 To 5

x = n / i

n = n + 1

sum = sum + x

Next i

End Sub

该程序通过For循环来计算一个表达式的值，这个表达式是（　）。

A.1+1/2+2/3+3/4+4/5　B.1+1/2+1/3+1/4+1/5

C.1/2+2/3+3/4+4/5　D.1/2+1/3+1/4+1/5

15.在窗体中有一个命令按钮Command1，编写事件代码如下：

Private Sub Command1_Click（）

Dim s As Integer

s = p（1）+ p（2）+ p（3）+ p（4）

debug.Print s

End Sub

Public Function p（N As Integer）

Dim Sum As Integer

Sum = 0

For i = 1 To N

Sum = Sum + 1

Next i

P = Sum

End Function

打开窗体运行后，单击命令按钮，输出的结果是（　）。

A.15　B.20　C.25　D.35

二、填空题

1.在VBA中双精度的类型标识是__________。

2.VBA的3种流程控制结构是__________、__________、__________。

3.在窗体中使用一个文本框（名为x）接受输入值，有一个命令按钮test，事件代码如下：

Private Sub test_Click（）

y =0

For i=0 To Me!x

y=y+2*i+1

Next i

MsgBox y

End Sub

打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是______。

4.在窗体中有两个文本框分别为Text1和Text2，一个命令按钮Command1，编写如下两个事件过程：

Private Sub Command1_Click（）

a = Text1.Value + Text2.Value

MsgBox a

End Sub

Private Sub Form_Load（）

Text1.Value =“”

Text2.Value =“”

End Sub

程序运行时，在文本框Text1中输入78，在文本框中Text2输入87，单击命令按钮，消息框中输出的结果为___________。

5.现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20秒内完成，如果在20秒内没有完成登陆操作，则倒计时达到0秒时自动关闭登录窗体，窗体的右上角是显示倒计时的标签Itime。事件代码如下，要求填空完成事件过程。

Option Compare Database

Dim flag As Boolean

Dim i As Integer

Private Sub Form_Load（）

flag =____

Me.TimerInterval = 1000

i = 0

End Sub

Private Sub Form_Timer（）

If flag = True And i< 20 Then

Me!ITime.Caption = 20–i

i =

Else

DoCmd.Close

End If

End Sub

Private Sub OK_Click（）

登录程序略

如果用户名和密码输入正确，则：falg=False

End Sub

6.下列程序的功能是找出被5、7除、余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Form_Click（）

Dim Ncount %，n%

n = n + 1

If _________ Then

Debug.Print n

Ncount =Ncount + 1

End If

Loop Until Ncont = 5

End Sub