第6章 循环结构程序设计 第六章 本章要点： >特点：重复相同或 循环结构程序设计 >For.Next循环 相似的操作步骤 >结构： >Vhile.Wend循环 ●循环体一要重复执 > D0L00p循环 行的语句序列。 >循环的嵌套 ●循环控制部分一规 >循环结构应用举例 定循环的重复条件 或重复次数，确定 循环范围的语句
第 六 章 循 环 结 构 程 序 设 计 1 第6章 循环结构程序设计 本章要点: ➢For.Next循环 ➢While.Wend循环 ➢Do.Loop循环 ➢循环的嵌套 ➢循环结构应用举例 ➢特点:重复相同或 相似的操作步骤 ➢结构: ⚫循环体—要重复执 行的语句序列。 ⚫循环控制部分—规 定循环的重复条件 或重复次数，确定 循环范围的语句
循环引例 从坐标(0,100)到坐标(4000,100)处画线 Private Sub Command1 ClickO 第六章 Forml.DrawWidth =3 Form1.ForeColor vbRed Line(0,100)-(4000,100) Line(0,200)-(4000,200) Line(0,300)-(4000,300) 环结构程序设计 For i=100 To 1000 Step 100 Line(0,i)-(4000,i) Next i Line(0,800)-(4000,800) Line(0,900)-(4000,900) Line(0,1000)-(4000,1000) End Sub
第 六 章 循 环 结 构 程 序 设 计 2 循环引例 Private Sub Command1_Click() Form1.DrawWidth = 3 Form1.ForeColor = vbRed Line (0, 100)-(4000, 100) Line (0, 200)-(4000, 200) Line (0, 300)-(4000, 300) Line (0, 400)-(4000, 400) Line (0, 500)-(4000, 500) Line (0, 600)-(4000, 600) Line (0, 700)-(4000, 700) Line (0, 800)-(4000, 800) Line (0, 900)-(4000, 900) Line (0, 1000)-(4000, 1000) End Sub For i = 100 To 1000 Step 100 Line (0, i)-(4000,i) Next i 从坐标(0,100)到坐标(4000,100)处画线
6.1or.Nex循环结构 1.格式 第六章 For循环变量=初值To终值[Step步长】 语句组1 初值 循环变量 [Exit For] 循环结构程序设计 语句组2 Next[循环变量 循环变量值超过终值？ 2.功能： 执行循环体 执行过程如 循环变量+步长→循环变量 流程图所示 Next之后的语句
第 六 章 循 环 结 构 程 序 设 计 3 1. 格式 For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] 初值 循环变量 6.1 For.Next循环结构 循环变量值超过终值？ 执行循环体 循环变量+步长 循环变量 Next之后的语句 T F 2. 功能: 执行过程如 流程图所示
3.说明 1)循环变量：数值型变量 2)初值，终值，步长：数值表达式 第六章循环结构程序设计 3)步长：可正可负，但不能为0，为1时可以省略 > 步长>0时，必须：初值<=终值 循环结束条件：循环变量的值>终值 > 步长<0时，必须：初值>=终值 循环结束条件：循环变量的值<终值 4)Exit For:退出循环，常放在条件语句中 5)Next之后的循环变量应与For语句中的循 环变量一致，也可以省略 4
第 六 章 循 环 结 构 程 序 设 计 4 3. 说明 1）循环变量:数值型变量 2）初值,终值,步长:数值表达式 3）步长:可正可负,但不能为0,为1时可以省略 ➢ 步长>0时，必须: 初值<=终值 循环结束条件:循环变量的值>终值 ➢ 步长<0时，必须: 初值>= 终值 循环结束条件:循环变量的值<终值 4）Exit For:退出循环，常放在条件语句中 5）Next之后的循环变量应与For语句中的循 环变量一致，也可以省略
例：判断以下程序段的执行结果： For i=5 To 1 Step-1 Print i* Form1 第六章循环结构程序设计 Next i 25 169 4 1 Print Print⑤ 例：判断以下程序段的执行结果： X=6 K=1;超过终值， For K=1 To 10 Step-2 不进入循环 X=X+K Form1 Next K 1 6 Print K,X 10t
第 六 章 循 环 结 构 程 序 设 计 5 例: 判断以下程序段的执行结果: For i = 5 To 1 Step -1 Print i * i; Next i Print Print i 例: 判断以下程序段的执行结果: X = 6 For K = 1 To 10 Step -2 X = X + K Next K Print K,X K=1;超过终值, 不进入循环