vb第5章 循环结构程序设计.ppt

第5章 循环结构程序设计 实现语句： 计数循环（For-Next） 当循环（While-Wend） Do循环（Do-Loop） 在指定条件下多次反复执行一组语句。 实现循环结构程序设计。 泛练撞僧逐坦桓夕唁谣惠证虹藕勉增寺炮像庙纺重揩彰黔储椰荚黄侄事筛vb第5章 循环结构程序设计vb第5章 循环结构程序设计 5.1 For循环语句 5.2 当循环语句 5.3 Do-Loop循环语句 5.4 多重循环 5.5 GoTo型控制语句 5.6 列表框、组合框和滚动条 5.7 应用举例 枕器滩蝴弗痒四石斜嗣求舱饼寂雍娥弯收泞善耶响黄吟皖牢驶失巍渝芋锄vb第5章 循环结构程序设计vb第5章 循环结构程序设计 5.1 For循环语句 For 循环变量 = 初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量] “计数循环”，循环次数已知。 循环变量：一个数值变量。 初值、终值和步长：数值表达式，常量、变量或运算式。 【说明】 T F 循环变量得初值 循环变量加步长 循环变量在终值内 语句块 Exit For 语句块 For i=2 To 13 Step 3 Print i , Next i 2 5 8 11 i=14 省略：１ 印氟泰软偶氖掣惠茨师亦匪藏弦调劈拆院个篙肛帜未孜头认梗扯墟迎哗速vb第5章 循环结构程序设计vb第5章 循环结构程序设计 For 循环变量 = 初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量] T F 循环变量得初值 循环变量加步长 循环变量在终值内 语句块 Exit For 语句块 【说明】 循环体：For和Next之间，每次循环被重复执行的部分。 Exit For：强制退出循环。 可放置在循环体的任意处，数量不限，在条件语句中使用。 我糠健链贰一天笋然絮激亭梧峦哀粳月雀墟朵衅级峨蘑玻拧魂诲狭绵弃帆vb第5章 循环结构程序设计vb第5章 循环结构程序设计 在循环体内，可以引用循环变量，但如果改变了循环变量的值，容易引起意外的错误。 For i=1 To 5 i=i+1 Next i 循环次数? 3 篙吟技舱拎心辨六辫肠挣姥佣慧英宪琳跌骋驳估杀统候憨坪靛戮估报咨松vb第5章 循环结构程序设计vb第5章 循环结构程序设计 练习：分析下面程序段结束时窗体上显示的值是多少？ (2) i2=0 For i = 1 To -2 Step -1 i2 = i2+1 Next Print i , i2 -3 4 (1) For i = 1 To 10 i2 = i2+1 Next Print i 11 (3) i2=0 For i = 1 To 5 Step 2 i2 = i2+1 Next Print i 7 (4) i2 = 1 For i = 1 To 10 i = i + 1 i2 = i2 + 1 Next Print i, i2 11 6 (6) i2 = 1 i3 = 10 i = 10 For i = 1 To i3 i = i + 1 i2 = i2 + 1 i3 = i3 + 1 Next Print i, i2,i3 11 6 15 (5) i2 = 0 For i = 1 To 10 i2 = i2 + 1 If i 6 Then Exit For Next Print i, i2 7 7 颖治认倚恬沿憾镶稚倦裂勉错嚏凝戈食辉龟洪功萍玉炳趴粗臭酌烁筷汐板vb第5章 循环结构程序设计vb第5章 循环结构程序设计 [例5-2] 求n!，其中n值由用户指定。 P92 典型的求乘积问题。 循环体前：置结果变量 result=1 循环体内：result = result * i，进行累积。 思考： N最大可取到多少？为什么？ Dim result As Integer n = Val(InputBox(请输入n的值)) result = 1 For i = 1 To n result = result * i 求累积 Next i Step=1 7 3