循环结构do循环嵌套.pptVIP

上节课内容回顾 While…Wend语句 注意: 如果循环次数未知，则最好采用 while…wend语句 循环结构程序设计 for 循环结构 While循环结构 Do…while循环结构 多重循环结构 重点：理解循环的执行过程 编写循环结构程序 难点：多重循环结构 循环结构 循环结构依据某一条件（循环条件）反复执行某段程序（即循环体）。 三种循环结构：for 、while、do 循环三要素 循环三要素： (1) 初始化：决定循环的初始状态，即与循环相关的变量的初始值。 (2) 循环体：循环中反复执行的部分。 (3) 循环的条件：决定循环结束的条件。 Do循环结构 例：求1~100之间所有整数的和，用While…Wend语句实现。 sum=0 : i=1 While i=100 sum=sum+i i=i+1 Wend 2. 直到型循环 直到循环条件成立时退出循环，否则执行循环。 求1~100之间所有整数的和 例4.20 求某同学的平均分 例4.25 分析程序 Private Sub Form_click() Dim s%, i% s = 0: i = 1 Do While i = 10 s = s + i If s = 4 Then Exit Do End If i = i + 1 Loop Print 第; i - 1; 项“ End Sub 输出结果： 第2项 Goto语句 前面介绍的循环结构都是根据某个条件进行循环，称 为有条件跳转语句。 Goto语句和On-Goto语句，称为无条件跳转语句。 格式：Goto 语句标号|行号 注意： (1)“语句|标号”是一个英文单词或整数，位于一行语句 的开头，用于指示语句的位置，以冒号结尾。 (2)Goto语句与If语句构成循环结构。 循环的嵌套 在一个循环结构的循环体内含有另一个完整的 循环结构，称为循环的结构（多重循环）。 说明： 内外循环之间必须完整包含，不得交叉。 内循环变量与外循环变量不能同名 。 如：for i=1 to 10 for j=1 to 10 …… next j next i 例4.26：打印循环变量的值。 Private Sub Form_click() Dim i%, j% For i = 1 To 3 外循环变化为1、2、3 Print i=; i; , ; 打印外循环变量i的值 Print j=; For j = 1 To 4 内循环变化为1、2、3、4 Print j; 打印内循环变量j的值 Next j Print Next i End Sub 例4.27 求100-200之间的素数。 质数又称素数。指在一个大于1的自然数中，除了1和此整数自身外，没法被其他自然数整除的数。换句话说，只有两个正因数（1和自己）的自然数即为素数。 分析： 穷举法：把所有的值一一列举出来，然后依次进行筛选。 （1）For m=100 to 200 判断m是否为素数，若是则打印 Next j （2）因为所有的偶数都不是素数，故设步长为2，从101开始判断，以提高程序的执行效率。 For m=101 to 200 step 2 判断m是否为素数，若是则打印 Next j 素数的判断： 　　1：只能被1和本身整除。 　　或2：不能被小于它的平方根的所有素数整除就是素数。 但是从算法上考虑，为了减少重复量，开平方后面的数就不用相除了。 Private Sub Form_click() Dim m%, i%, n% For m = 101 To 200 Step 2 外循环测试奇数 For i = 2 To Sqr(m) 内循环构造测试条件 If m Mod i = 0 Then 能够整除，不是素数 Exit For 结束内循环 End If Next i If i Sqr(m) Then 正常结束