VB6 的 For   Next 循环语句

For   Next循环语句

上一节讲了Select Case 控制语句，这节讲For Next循环语句。先说一下循环语句有什么用，假如让你计算从1到10，每个数加5是多少，笨法就是1+5，2+5，3+5……10+5，笨法也就算了，好歹最后解决了问题，但是如果让你加到1000呢？有同学问，谁这么无聊没事加这个，但是，你要知道实际应用中有许多情况会用到这个。比如图书馆图书有几千几万本，你想在数据库里查找《三毛流浪记》，思路肯定是把数据库中的每一条数读出来，然后对比，是不是《三毛流浪记》，如果不是，就读下一条，再对比，直到对比成功，就找到了，如果读到最后一条还是没有对比上，那么就说明这个数据库里没有这本书。那么多数据，你怎么一条条来比对呢？今天的For Next语句来帮你，看下它的运行顺序：

循环变量，For Next语句就靠它来执行是否循环完毕，初值就是从哪开始，终值就是到哪结束，上面的例子，从1到10每个数都加5，1就是初值，10就是终值。步长就是间隔多少，说句俗话，就是从起点走到终点，每一步迈多长的距离，你从起点要走10米，每次迈步一米，需要走十步，你要每步迈2米，只需走5步，一步走一米在代码里表现就是Step 1 ，一步走两米就是Step 2。在程序里一般的情况下都是Step 1,所以这个Step可以省略不写，直接默认1，所以代码常常是这样写：

然后这个"Next 循环变量"的意思是，继续返回去执行 For 循环变量 = 初值 To 终值，什么时候不执行了呢？就是"循环变量"到达终值的时候，就不会再执行中间的代码了。如果把上面1+5，2+5……10+5的例子用代码实现就是下面这样：

运行效果：

那么图书馆那个例子该怎么写？我给个大概的代码，让大家容易理解，实际上要严谨的多：

这样，程序就会把数据库里的每一条数据都读出来比较是不是你想要的，但是有一种情况，假如数据里第二条就是你要找的数据，那么程序也会继续找下去，一个个的去比对，它是不会停的，因为你设定的终值是数据最后一条数据，所以你还要了解的是"Exit For",我们叫它跳出循环，只要程序遇到这个"Exit For",不管循环变量到没到终值，都会立刻跳出循环，结束循环语句。所以当图书找到以后，我们就用“Exit For”，节省内存，提高程序效率。代码改成这样：