文档介绍：第5章循环结构程序设计
前面,我们学习了顺序结构程序设计和选择结构程序设计,通过前两章的学习,我们可以解决一些简单的问题,而对于一些较为复杂的问题,我们还无法解决。
例如,我们要从n个数中,找出最大值,利用前两章的知识,我们知道,需要声明n个变量,用来保存n个数据,再声明一个变量max用来保存最大值,通过书写n个选择结构,从而得到最大值max。显然,此方法书写工作量巨大。那这里是否存在的某些规律呢?是否有简便方法呢?这就需要用到我们即将学习的循环结构程序设计。

为了解决某一实际问题,在程序中往往需要有规律地按某一个模式进行操作,或按指定条件反复运行某一段程序,能够完成此功能的程序结构称为循环结构。
引例求1+2+3+……+n
设: intSum为累加和变量,则有:
Dim intSum As Integer
intSum=0
intSum=intSum+1
intSum=intSum+2
…
intSum=intSum+(n-1)
intSum=intSum+n
求解前n项和至少需要n条语句,显然这不是解决问题的简便方法。上例中需要反复进行操作的是累加和语句:intSum=intSum+n,这条语句共执行n次。可设置一计数器变量intCount,用于累计累加和语句的执行次数。计数器变量初始值设置为0,每执行一次累加语句,变量intCount值加1,直到intCount=n为止。所以在程序设计中可使用循环结构来解决类似问题。重复执行的语句称作循环体语句,用图5-1描述上述算法:
开始
结束
intCount>=n
<终值
intSum=intSum+intCount
Yes
No
intCount=intCount+1
intCount=0: intSum=0

图5-1 循环结构流程图
根据图5-1看出,循环结构由以下三个要素构成:
A. 构成循环的基本条件是什么?
B. 循环体要完成的功能是什么?
C. 在什么情况下结束循环过程?
Visual Basic中提供了几种循环语句,它们分别为:GoTo、Do … Loop和For … Next循环结构,下面我们分别进行详细介绍。
GoTo型控制
Goto语句又称为无条件转向语句,它的一般形式为
Goto 语句标号
或 Goto 行号
说明:
⑴语句标号或行号必须存在,否则会出现错误。
⑵语句标号是一个标识符,在标识位置上,其后紧跟一个冒号。行号是一个整数。语句标号的命名规则与变量名相同。例如,Goto ab,Goto a1,Goto 123是合法的(ab,a1是语句标号,123是行号),而Goto a%,Goto 10a是非法的。
Sub Form_Click()
Print “She is ”
Goto Message
Print “not”
Message : Print “a beautiful girl.”
End Sub
求1+2+3+……+100
由于Goto语句可以控制程序的流程,故程序可以如下编写:
Dim n As Integer, sum As Integer '变量n用来进行计数,变量sum用来保存最终结果
aa: sum = sum + n
If n < 100 Then
n = n + 1
GoTo aa
End If
Print sum
这样,我们可以得到最终的结果是5050。
显然,Goto语句的使用可以达到一定的程序流程控制的功能,但在结构化程序设计中一般不提倡使用Goto语句,因为它的使用不易实现结构化程序设计。
Do…..Loop型循环
Do…..Loop型循环是最常用且最有效的循环结构。
语句格式:
Do
<循环体>
Loop
说明:循环结构的关键是“有始有终”。所以,本语句结构的问题关键在于如何根据实际要求设置条件来限定循环次数?
解决方案: 在Do....Loop循环结构中添加分支语句
Do
<循环体>
If <满足条件> Then Exit Do
Loop
解释:Exit Do表示退出当前这层的Do…Loop循环结构。选择结构用来设定条件,当满足设定条件时退出Do....Loop循环,执行Loop之后的语句。
求1+2+3+……+100
分析:本题是一个求累加和的问题。首先寻找题目中的规律,①累加过程;②相邻两项中,后一项总比前一项
多1;所以确定循环体的内容(参见图5-1),然后,确认结束条件,即超出100即可退出循环。
程序如下:
Dim n As Integer, sum As Integer '变量n