《Do循环语句.ppt》由会员分享，可在线阅读，更多相关《Do循环语句.ppt（14页珍藏版）》请在三一文库上搜索。
1、For 循环变量 = 初值 To Step 语句组 Next 循环变量 For循环语句是用来解决循环次数事先能确定 的问题的 次数=（终值-初值）/+1的整数,陈婷今年17岁了，她的生日正好是植树节3月 12日。今年植树节老师带学生去公园植树， 陈婷很高兴，一个人就栽了3棵树。她想，如 果从明年开始每年过生日的时候都去植树， 并且每一年都要比前一年多栽一棵树，这样 下去，到多少岁才能累计到或超过100棵呢？,分析： 初值为17，步长为1，终值？ 这个问题中的循环次数是未知的，所以用For 循环语句无法解决。要解决这类问题，就要 用到循环语句的另一种语句do循环语句。,Do循环语句,语句格式：
2、Do 循环体 Loop Until 循环终止条件 其中，循环体是一组VB语句； 循环终止条件是一个逻辑表达式。,执行Do语句，直接进入循环，执行循环体 (2) 执行Loop Until语句，判断条件；如果条件不满足，回到上面执行循环体，否则跳出循环。,流程图：,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 Tre
3、e = Tree +Age -14 Loop Until Tree = 100 Print “年龄为：”; Age,do 与 for 的区别,for 循环变量=初值 to 终值 step 步长 循环体 next 循环变量,do 循环体 loop until 条件,已知 次数=（终值-初值）/步长+1的整数,未知,自动 循环变量=循环变量+步长,手动,根据教科书P57页表2-10，画出do语句的四种不同格式对应的流程图。,作业： 课本54页实践(1) 已知S=1+2+3+4+N，找出一个最大的 整数N，使得S30000,编写程序解决这 个问题。,Private Sub Command1_Click() Dim s, n As Integer n=0 s=0 Do n = n + 1 s = s + n Loop Until s 30000 Print s=; s - n Print n=; n - 1 End Sub,Dim s, n As Integer n=0 s=0 Do n = n + 1 s = s + n Loop Until s =30000 Print s=; s - n Print n=; n - 1,