课题：循环结构教学时间： 授课班级： 教学目标：学会用for …next 语句和do …loop 编写简单的程序，并会调试它 教学重点、难点：1． For –next 语句的用法 2． Do-loop 语句的用法 3． 循环语句的嵌套 教学过程在用计算机处理问题时，除了分支问题外，还有不少是需要重复执行某一组操作的问题。

这就要采用循环结构，VB 中提供了两种语句实现循环结构，For-Next 语句和Do-Loop 语句。

【例6-6-1】求s=1+2+3+……+100 利用赋值语句可写出如下形式的代码： sum=0 sum= sum+1 sum= sum+2 sum=sum+3 …… sum=sum+100很显然，使用这种形式也能得到结果，但程序很冗长。

观察上面的代码可以发现，这段代码实际上重复了同一个操作：sum=sum+I ，只不过是每次相加的自然数不同而已。

使用VB 提供的循环语句可以很容易实现这种重复操作功能。

具体算法如下：①设sum=0； ②设i=1；③若i<=100则转④，否则算法停止，最后sum 中的数值即是自然数列前100项之和；④将sum 与i 相加，其结果送给变量sum ，即sum+i →sum ； ⑤使i 值增加1，即i+1→i ； ⑥转③。

流程图如图6- 23，程序及运行结果如下： ' 求1、2、3……、100之间自然数的和 Private Sub Form_Click()Dim i As IntegerDim sum As Integer sum = 0For i = 1 To 100sum = sum + i ' 循环体 图6-23开 始 0→sum1→i i<=100sum+i →sum i+1→i 输出sum 结 束 YNNext iPrint "sum="; sumEnd Sub运行结果为：sum= 5050一、For...Next循环这个程序中使用的是For...Next循环，它的一般形式是：For 循环变量=初值To 终值Step 循环变量增量循环体Next 循环变量循环变量的初值、终值、循环变量增量都是数值型。

其中要重复执行的操作称为循环体，增量可正可负，如果没有设置Step，则增量的缺省值为1。

For-Next循环的执行过程是：①循环变量取初值；②循环变量与终值比较，没有超过终值转③，否则循环结束，接着执行循环语句的后继语句；③执行一次循环体；④循环变量增加一个增量；⑤重复步骤②～④。

从上看出，For-Next循环变量是一种当型循环，图6-24是它的执行过程。

说明：①For语句与Next语句必须成对出现，而且它们当中的“循环变量”必须是同一个变量，如本例中均为i；②当循环变量增量为正时，循环变量超过终值，是指循环变量的值大于终值，若为负，则是指循环变量的值小于终值。

图6-24 从例6-6-1程序的流程图和For-Next循环的招待过程可以看出，执行For-Next循环时，先判断循环变量是否超过终值，如果没有超过终值，就执行循环体，这种循环称为当型循环，它的一般结构如图6-25所示。

循环体A执行有限次后，条件P不再成立，从而退出循环。

图6-25讨论与思考：⒈本例中循环结束时，循环变量i的值是多少？⒉若有如下一段代码：For j=15 to 3 Step –2Print jNext j则循环结束时，循环变量j的值是多少？⒊循环变量的增量能否为0，如果为0，运行结果怎样？【例6-6-2】设计一个界面如图6-26所示的程序，要求执行程序后，窗体上的星星在闪烁，单击“结束”按钮结束程序。

为了实现星星闪烁的效果，本例设置了一个定时器控件，窗体启动后，每隔500ms触发一次Timer事件，在该事件中使用循环语句随机产生50个坐标值，然后用窗体的Pset方法在这些坐标处画点，窗体上出现星星的效果，在Timer事件的开头，使用Cls方法清屏，以产生闪烁效果。

完成本程序需要在设计阶段设计的属性如表6-11。

缺省的对象名设置的对象名属性设置值Form1 frmStarCaption 星星闪烁BackColor 黑色ForeColor 黄色Command1 cmdEnd Caption 结束Timer1 tmrAnimationEnabled FalseInterval 500程序代码如下：′星星闪烁Dim xpos As Integer, ypos As IntegerDim i As IntegerPrivate Sub Form_Load()tmrAnimation.Enabled = True图6-26RandomizeEnd SubPrivate Sub tmrAnimation_Timer()′清屏，产生闪烁效果ClsFor i = 1 To 50xpos = Int(frmCircle.Width * Rnd)ypos = Int(frmCircle.Height * Rnd)PSet (xpos, ypos)Next iEnd SubPrivate Sub cmdEnd_Click()EndEnd Sub二、Do...Loop循环For-Next循环的次数是确定的，有的问题只知道循环结束的条件，重复执行的次数事先并不知道，这时需用Do-Loop循环。

格式一：Do While 条件循环体Loop当VB执行Do While -Loop循环时，先判断指定的条件是否为真，若条件为真，执行循环体，条件为假时退出循环。

这也是一种当型循环。

【例6-6-3】设计一个界面如图6-27所示的程序，从键盘输入任意两个正整数a、b，输出它们的最大公约数。

图6-27本程序运行时，通过单击“计算”按钮在“最大公约数”框中显示a与b的最大公约数，因此，求最大公约数的代码就编写在“计算”按钮的Click事件中。

完成本程序界面需要设置的属性如表6-12。

表6-12缺省的对象名设置的对象名属性设置值Form1 frmDivisor Caption 最大公约数Label1 lbla Caption 输入ALabel2 lblb Caption 输入BLabel3 lblDivisor Caption 最大公约数 Text1 txta Text （空白） Text2 txtb Text （空白） Text3 txtDivisor Text （空白） Command1 cmdCalcu Caption 计算 Command2cmdEndCaption结束求两个正整数a 、b(a>b)的最大公约数的算法见例6-1-3，流程图见图6-3，程序代码如下： ′求最大公约数Private Sub cmdCalcu_Click() Dim a As Integer Dim b As Integer Dim r As Integer a = Val(txta.Text) b = Val(txtb.Text) r = a Mod b Do While r <> 0 a = b b = rr = a Mod b LooptxtDivisor.Text = Str(b) End SubPrivate Sub cmdEnd_Click() End End Sub 格式二：Do 循环体Loop Until 条件这种循环的执行过程如图6-28所示，进入循环后，先执行一次循环体A ，然后再检查条件是否成立，如果不成立，就执行循环体A ，直到条件D 成立，退出循环。

这种循环结构称为直到型。

图6-28【例6-6-4】 如果我国人口以每年平均1.5%的速度增长，问多少YA P N入口出口年后我国人口达到或超过15亿，设现在人口为12.3亿。

解决这个问题的思路是：设现在人口为p 0=12.3亿，人口增长率r=1.5%=0.015，则一年后人口为p 1=p 0+p 0×r=p 0×(1+r)，看它是否达到或超过15亿；如果未达到，再算二年后的人口p 2=p 1+p 1×r=p 1×(1+r)；如果未达到，再计算三年后的人口……，直到n 年后的人口数达到或超过15亿。

流程图见图6-29，程序代码如下： ′直到型循环Private Sub Form_Click() Dim p As Single Dim r As Single Dim n As Integer p = 1230000000# r = 0.015 n = 0 Dop= p * (1 + r) n = n + 1Loop Until p >= 1500000000# Print n; "年后", "人口="; pEnd Sub 运行结果如下；14年后 人口=1.51506E+09三、循环的嵌套在一个循环中又完整地包含另一个循环，称为循环的嵌套。

前面介绍的几种类型的循环可以互相嵌套，例如可以在一个For-Next 循环中包含另一个For-Next 循环，也可以在一个Do-Loop 循环中包含一个For-Next 循环。

【例6-6-5 **** ***** ******* ***** ****为解决这个问题，可以采用如下的算法：使用双重For-Next 循环，外循环确定行数和各行起始打印位置，内循环用来确定各行打印的个数。

设外循环的循环变量为i ，内循环的循环变量为j 。

由于图案上下对称，上下两半对应行的起始位置和字符个数完全一致，所以i 的取值也应对称：i=-3 To 3。

设i=0行的起始打印位置为5，图 6-29结 束换 行j+1→j YN开 始 -3→i i<=31→j确定每行 起始位置j<=2*(4-Abs(i))-1输出"*"YN则第i 行的起始打印位置为Tab(Abs(i)+5)，第i 行的字符的个数为2*(4-Abs(i))-1。

流程图如图6-30所示，程序代码如下：′打印菱形图案Private Sub Form_Click()Dim i As Integer, j As Integer For i = -3 To 3Print Tab(Abs(i) + 5); ′确定每行的起始位置 For j = 1 To 2 * (4 - Abs(i)) - 1Print "*"; Next jPrint ′换行 Next i End Sub【例6-6-6】求3到100之间的全部质数。

质数是除了1和它本身之外，不能被其它任何整数整除的大于1的自然数。

要验证一个自然数n 是否为质数，方法很多。

我们采用的算法是：一个数n 是否是质数，只需将n 被2～ 间全部整数除即可，如果都除不尽，n 就是质数。