********************************************************************
中华隐士黑客联盟主站：www.hack86/
规模最大、实力最强、信誉最好的网络技术培训站点
专业的技术站点 权威的技术培训 最好的免费学习电脑技术天地
真正的技术，就是要用实力来说话 欢迎来到中华隐士黑客联盟。
注：本教程只做技术交流，请不要用作非法用途！中华隐士黑客联盟
***********************************************************
主题：VB系列培训 – 第十五课
内容： For….Next 计数循环语句 和 Do…Loop条件循环语句
在有的时候，我们需要编写一个语句，并且希望这些语句能够根据一定的状况，可以循环的执行，那么就可能用到今天这节课我们讲到的For…next，它的主要功能是：
针对某个变量的取值范围，循环执行某些语句。 Inputbox 输入语句
它的语法如下：
（1）、For 变量（名称）= 初始值 To 终止值
要执行的语句
Next
举个例子：
Dim n ‘定义一个变量n
Msgbox “10”
Msgbox “11”
Msgbox “12”
Msgbox “13”
Msgbox “14”
……
如果这么写，也可以连续弹出些消息框，逐个显示10-20，但是比较繁琐，有没有好些的方法？
答案是肯定的！看代码：
Dim n
For n = 10 to 20
Msgbox n
Next ‘ 这么写的效果和原先的一样，含义也是：弹出一些消息框，消息框的内容是：10-20 .
那么有些人可能问，这种格局，到底是怎么运行的呢？下面我具体的用一个图来表示：
首先我们知道：
For 变量 = 初始值 to 终止值
｛ 这里就是循环执行的内容 ｝当然，可以是多个。
Next 【最后用这个Next结束】
那么计算机遇到这种格局的语句，是这样执行的。
第一步：为这个变量赋予初始值。
第二步：判断这个变量的当前值的范围是否在“初始值”和“终止值”之间。
第三步：执行中间的循环语句。
第四步：变量的值加1。
（…..重复…..）
第五步：返回，并为这个变量赋予初始值。
第六步：判断这个变量的当前值的范围是否在“初始值”和“终止值”之间。
第七步：执行中间的循环语句。
第八步：变量的值再加1.
如此往下循环，直到变量中的值不在“初始值”和“终止值”之间的时候(不成立为止)，它才会进入第9步，也就是Next后面的语句。
第九步：结束
这就是一个大概的流程。
————————————
（2）For 变量 = 初始值 to 终止值 step 变化值
要执行的语句
Next
注意：初始值、终止值、变化值均是数值表达式。
上述的情况中，有一步是：变量的值再加1.但是，有时候我们需要控制，到底是加1还是减1，这时，我们就可用第二种模式的语句。它和第一种的区别就是在于后面多了个“step 变化值”。
可以是：加1、减1，或是加几减几。具体举个例子：
Dim n ‘定义一个变量n
For n = 10 to 20 step 1 为变量n赋予一个初始值10，终止值是20，每循环一次，默认加1.
Msgbox n ‘然后打印出n的值
Next
运行后，每次循环自动加1，如还没有超出10-20这个范围的话，就继续，直到它超出这个范围为止。接下来我们把step 这个范围变下，如step 2，这样每次循环就会是加2！如图：
运行直到超出范围为止。
我们还可以加上负数，也就是每次让变量n的值缩小。但是这种情况下，为了保持有一个合理的条件，以便让这个循环可以结束。所以它的初始值往往要比终止值大。如：
For n = 20 to 10 step -2
也就是一开始执行，会弹出20，如下图-1。接着就不是先前的加1，而是 -2，那么接着点击就会弹出图-2：
（图-1）（图-2）
执行过程伴随着的是对设定范围的判断，看是否超出范围。
以此类推，直到超出范围就Next退出。
这两种格局，以第二种较为灵活。因为多了一个step 变化值，方便对循环的控制。两种格局的共同点都是要有一个范围作为限定，即是否超出初始值和终止值。因此，这种方法又有另一个名字，就是“计数循环”。
这些“初始值”和“终止值”，以及变化值，除了可以放直接的数值外，还可以放数值表达式，就是这个式子运算后，依然是一个数值。当然，式子中包含变量也是允许的。
Dim n
Dim B ‘新定义一个变量B
B = 5
For n = 11+9 to 15 – B step -2 ‘每次循环就会是减2
Msgbox n
Next
运行后的结果一样！不会有什么影响。
————————————————
Do…Loop条件循环语句
既然是条件循环语句，也许我会联想到，这种语句通过条件表达式返回的结果是否为true，或是为false。根据测试的条件是否成立（true和false），来决定是否循环执行某些编程语句。
注释：当条件成立（true），执行循环体语句；当条件不成立（false），终止循环。
在讲解这种语句的具体用法前，我们需要了解的是，这种循环语句的两种方法。
对于一个循环语句来讲，会有一个条件来进行是否持续循环的抉择，那么是先判断这个条件再来执行这个循环语句？还是先执行这个语句再来判断呢？因此，引发了这2种类型。
语法：
“先测型”（先对条件成立与否作出判断，然后再来抉择执行循环语句）
Do While 条件 ‘ 先对这个条件是否成立作出判断。
要循环执行的语句 ‘ 当条件成立了，也就是返回True了，才会持续执行循环体内的语句。
Loop ‘当返回False时，最后用Loop来结束这个语句。
举个例子：
Dim A ‘声明一个变量A
A = 10 ‘放入一个初始值10
Do while A < 15 ‘对这个条件进行判断，当A的值 < 15时，持续执行循环体内的语句。
执行完后，回到Do while A < 15这句后边的A<15这个位置对
这个条件表达式返回的值再进行判断，如果再成立，就继续执行，
直到条件不成立时，从而结束这个循环。
Msgbox A
A = A + 1
Loop
第二种：Do until 条件
Do until 条件
要循环执行的语句
Loop
含义：对Do until 这个条件进行判断。当条件不成立时（False），执行循环体语句；当条件成立时True），终止循环。下面具体看看实例：
Dim A ‘声明一个变量A
A = 10 ‘放入一个初始值10
Do until A > 15
Msgbox A
A = A + 1
Loop
‘对这个条件进行判断，当条件不成立，也就是返回False值时，持续执行循环体内的语句。执行完后，回到Do until A > 15这句后边的位置对A > 15这个条件表达式返回的值再进行判断，如果不成立，就再继续执行，直到条件成立，也就是返回的值是True时，才结束这个循环，执行后面的语句。
————————————————
“后测型”语句的介绍：
刚才说的都是先测型的，接下来说说后测型的。
如果你对前两种语句理解不错了，那么对后两种语句理解起来也会很自然。
（1）、格式：Do
Loop while 条件
【注释】：先执行循环体语句，然后再对条件进行测试。当条件成立（即True），继续执行循环体语句；当条件不成立（即False），终止循环。举个例子：
Dim B
B = 10 ‘ 赋予初始值10
Do
Msgbox B ‘打印出变量B中的值
B = B + 1 ‘变量B中的值在原有的基础上加1
Loop While B < 15 ‘当变量B中的值小于15的时候，持续执行循环体内的语句，直到这个条件不成立为止，结束这个循环。
运行后，第一次运行，变量B中的值为10，接着，变量B中的值在原有的基础上加1，变成11，
11与15进行小于关系比较，这个条件成立，继续执行，直到条件判断返回False，即不成立了，才停止循环。
——————————
（2）、Do
要循环执行的语句
Loop Until 条件
【注释】：先执行循环体语句，然后对条件进行测试。当条件不成立（False），继续执行循环体语句；当条件成立（True），终止循环。举个例子：
Dim B ‘ 定义一个变量B
B = 10 ‘ 赋予初始值10
Do
Msgbox B ‘打印出变量B中的值
B = B + 1 ‘变量B中的值在原有的基础上加1，也就是由10变成11；
Loop Until B > 15 ‘然后对B >15这个条件进行判断，如果条件不成立，则返回Do后面继续执行循环体内的语句；如果这个条件还不成立，则再一次的返回Do后面继续执行….直到条件成立了，才终止循环。
do while语句怎么用End Sub
最后时，当弹出15的时候，根据B = B + 1，即得数为16，大于15，条件成立，结束循环。
切记：条件可以为算术表达式、关系表达式、逻辑表达式。当为算术表达式时，非0表示True，0表示False。这四种语句虽然实现的功能都是循环语句，但是如果你能熟练运用的话，它们各有自己的优势，在有的时候，其中某一种句型能够让你的程序变得—简单直白。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论