DO循环语句幻灯片.pptVIP

第四节 程序的Do循环;;通过下面的一个小程序来复习一哈上节课学习的for循环语句;For 循环变量 = 初值 To 终值 Step 步长 语句组 Next 循环变量 For循环语句是用来解决循环次数事先能确定 的问题的 循环次数=(（终值-初值）/步长)+1的整数 但是对于只知道控制条件，但不能预先确定需要执行多少次循环体的情况（如下面例题），我们怎么办咧。;小明今年17岁了，她的生日正好是植树节3月 12日。今年植树节老师带学生去公园植树， 小明很高兴，一个人就栽了3颗树。她想，如 果从明年开始每年过生日的时候都去植树， 并且每一年都要比前一年多栽一棵树，这样 下去，到多少岁才能累计到或超过100颗呢？ ;分析： 初值为17，步长为1，终值？ 这个问题中的循环次数是未知的，所以用For 循环语句无法解决。要解决这类问题，就要 用到循环语句的另一种语句do循环语句。 ;具体问题具体求解： 1.将问题转化为：当Tree=100时，求 Age的值 2.设计算法 (1) 循环体内容:Age = Age + 1 Tree = Tree +Age -14 (2) 退出循环体条件：Tree = 100 ;代码： Dim Age ，Tree As Integer Age = 17 Tree = 3 Do Age = Age + 1 Tree = Tree +Age -14 Loop Until Tree = 100 Print “年龄为：”; Age ;Do Loop循环语句;“当循环”两种语法形式 循环条件为真时，执行循环体；;;Private Sub Form_Load() i = 1 sum = 0 Do While i = 5 sum = sum + i i = i + 1 Loop Print sum=; sum, i=; i End Sub;Private Sub Form_Load() i = 6 Do While i = 5 sum = sum + i i = i + 1 Loop Print sum=; sum, i=; i End Sub;“直到循环”两种语法形式 循环条件为真时，退出循环体;噢！！ 直到型循环原来是这样！;Private Sub Form_Load() i = 1 sum = 0 Do Until i 5 sum = sum + i i = i + 1 Loop Print sum=; sum, i=; i End Sub;Private Sub Form_Load() i = 6 sum = 0 Do Until i 5 sum = sum + i i = i + 1 Loop Print sum=; sum, i=; i End Sub;;DO语句格式之总结： 其中：循环体是一组VB语句； 循环终止条件是一个逻辑表达式;For 和Do Loop的比较;（1）For I=…. ….. For J=…. …. Next J ….. Next I;;九九乘法表; 1．Do … Loop的各种格式，while和until的区别 包括两类语法形式即： 当循环 ：循环条件为真时，执行循环体； 直到循环：循环条件为真时，退出循环 2.循环嵌套的格式