Visa Basic程序设计 第6章 循环结构程序设计.ppt

* 6.4 应用举例 P94 【例6-11】 P95 【例6-12】 P96 【例6-13】 * 本章小结 1. For…Next循环结构 For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] * Do [{While|Until}条件] [语句组1] [Exit Do] [语句组2] Loop Do [语句组1] [Exit Do] [语句组2] Loop [{While|Until}条件] 2. Do…Loop循环结构 第六章 循环结构程序设计 V i s u a l B A S I C 程序设计 * 第6章 循环结构程序设计 本章要点: ? For...Next循环 ? Do...Loop循环 特点: 重复相同或相似的操作步骤 结构: 循环体—要重复执行的语句序列。 循环控制部分—规定循环的重复条件或重复次数，确定循环范围的语句 * 初值 循环变量 6.1 For…Next循环结构 1. 格式 For 循环变量=初值 To 终值 [Step 步长] 语句组1 [Exit For] 语句组2 Next [循环变量] 循环变量值超过终值？ 执行循环体 循环变量+步长 循环变量 后续语句 Yes No 2. 功能: 执行过程如流程图所示 * 3. 说明 (1)循环变量——数值变量 (2)初值,终值,步长——数值表达式 (3)步长——可正可负,但不能为0,为1时可以省略 步长0时，必须: 初值=终值 循环结束条件——循环变量的值终值 步长0时，必须: 初值= 终值 循环结束条件——循环变量的值终值 (4)Exit For——退出循环，常放在条件语句中 (5)Next之后的循环变量应与For语句中的循环变量应一致，也可以省略 * Text1 Label3 累加分析: 累加器(变量)初值 S=0 循环体(重复执行) S=S+I (I=1,2,…,N) Private Sub Command1_Click() Dim N As Integer, I As Integer, Sum As Integer N = Val(Text1.Text) Sum = 0 For I = 1 To N Sum = Sum + I Next I Label3.Caption = Sum End Sub 【例6-1】求1+2+3+4+…+N * 思考: 1. 求12+22+32+42+……+1002 2. 求13+33+53+……+n3 3. 求1-3+5-7+…+(-1)n+1(2n-1) 4. 求 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 * 【例6-2】求 N！( N!=1×2×3×…×N) 累乘分析: 初始化: F=1 循环体: F=F × I (I=1，2，3……N) 程序: Private Sub Command1_Click() Dim N As Integer, I As Integer, F As Long N = Val(Text1.Text) F = 1 For I = 1 To N F = F * I Next I Text2.Text = F End Sub * 思考: 1. 求1×3 ×5 ×7……(共N项)。 2. 求: 3. 求: * 【例6-3】打印斐波那契(Fibonacci)数列的前20项 斐波那契数列如下: 0，1，1，2，3，5，8，13，… 即从第三项起每一项是其前两项之和。 分析: …… Private Sub Form_Click() A = 0:B = 1 Text1.Text = Text1.Text Str(A) Str(B) _