Visual Basic程序设计教程第5章 循环结构化程序设计.pptVIP

真 假 i=4 s=s+i; i=i+1; 假 DO循环(条件型) 循环初始部分 循环控制 循环体要能修改循环变量,避免死循环 用于循环次数不确定的场合 Do While … Loop Do … While Loop 条件 语句块 语句块 T F 语句块 语句块 条件 T F 有Exit Do F T 有Exit Do F T 执行过程 Do Until… Loop Do … Until Loop 条件 语句块 语句块 语句块 语句块 条件 F T 有Exit Do F F T T 有Exit Do F T Do { While|Until }条件 语句块 [Exit Do] 语句块 Loop 【格式1】 【格式2】 Do 语句块 [Exit Do] 语句块 Loop { While|Until} 条件 先判断后执行 有可能一次循环都不执行 先执行后判断 至少执行了一次循环 条件为假 执行循环体 程序分析 本程序段的 功能是什么？ 通过设置条件,强制提前结束循环 【例】我国有13.2亿人口,设年增长率为0.8%的增长率,多少年后超过26亿。 m = 1320000000# : year = 0 Do While m = 2000000000# m = m + m * 0.005 year = year + 1 Loop 若将While改为Until，条件表达式怎么修改？ 讨论-运行结果 While循环(当型) 用于循环次数不确定，但控制条件可知的场合 给循环变量赋值 条件为真吗？ T 语句块 F While …Wend循环流程图 没有提前结束语句 用三种循环语句编写1+2+3+…+100。 例： Private Sub Commandl_Click0 Dim s As Single, i AS Integer i=1 While i=100 sum=sum+i i=i+1 Wend Print ”1^2+2^2+3^2+…100^2” ; s End Sub 课堂练习 语句形式 特点 循环条件 循环终止条件 循环次数 Do while..loop 先判断 True False =0 Do until..loop 先判断 False True =0 Do..loop while 后判断 True False =1 Do..loop until 后判断 False true =1 For ..next 先判断 控制变量〈=终值) （递增） 控制变量=终值) （递减） 控制变量〉=终值（递增） 控制变量=终值（递减） (终值-初值）/步长+1 while..Wend 先判断 True False =0 循环小结 5.2 多重循环 一个循环体内又包含了一个完整的循环结构称为循环的嵌套,也叫多重循环。 【例5.4】分析下列程序段。 Private Sub Form_click() Dim i%, j% For i = 1 To 3 For j = 5 To 6 Picture1.Print i, j Next j Next i End Sub 外循环走一次 内循环走一圈 循环次数I*j=3*2=6 【例5.5】打印下三角九九乘法表。 外循环：行i=i+1 内循环：列j=j+1 I*j 行：外循环 列：内循环 如何解决换行？ 打印上三角程序如何改动 For I=1 to 9 For j=1 to i 课堂练习 ?三种循环可以互相嵌套 (a) while 循环中的嵌套 (b) do_while循环中的嵌套 (c) for循环中的嵌套 ①:内外循环变量不能同名字 ②:内外循环不能交叉 ★ 类型 ①:GO TO 语句 ②:Exit语句 ③:With语句 概述 5.3 其他辅助控制语句 用于退出某种控制结构的执行 无条件形式：EXIT DO ,EXIT FOR,EXIT SUB 有条件形式：IF 〈条件〉Then Exit DO IF 〈条件〉Then Exit FOR EXIT语句 用于退出某种控制结构的执行 【例5.7】测试语句出口的执行情况。 Private Sub Form_click() Dim i%, num% Do For i = 1 To 1000 num = Int(Rnd * 100) Print num; Select Case num