2.4.2Do循环语句.pptVIP

2.4程序的循环结构 Do循环语句 引入 上节课我们已经学过for循环语句，知道它适合于重复次数的循环。但在实际问题中常常难以预先确定重复的次数，为此，VB语言还提供了一种称为Do循环的语句。 问题2-7：“陈婷植树”问题 陈婷今年17岁了，她的生日正好是3月12日植树节。今年植树节老师带同学们到公园里去植树。陈婷很高兴，一个人就栽了3棵树，过了一个很有意义的生日。她想，如果从明年开始每年过生日的时候都去植树，并且每一年都要比前一年多栽一棵树，这样下去，到多少岁时才能累计种到或超过100棵树呢？ ⑴分析问题 设年龄为Age,种树总数为Tree,则Tree可以用如下的式子表示： Tree=3+4+5+…(其中Age=17,18,19…) 于是这个问题就可以转化为：当Tree=100时，求Age的值。 ⑵设计算法 ①令Age=17; ②令Tree=3; ③Age=Age+1; ④Tree=Tree+Age-14; ⑤如果Tree100,则返回第③步； ⑥输出Age的值； ⑦结束。 ⑶编写程序 程序2-7 Private Sub Command1_Click() Dim Age As Integer, Tree As Integer Age = 17 Tree = 3 Do Age = Age + 1 Tree = Tree + Age - 14 Loop Until Tree = 100 Print 到; Age; 岁时种到; Tree; 棵树！ End Sub ⑷调试程序 把程序2-7输入计算机，按F5运行程序，单击“Command1”按钮，即可得到如图所示的结果。 Do循环语句的基本格式 Do 循环体 Loop Until循环终止条件 其中： 循环体是一组VB语句；循环终止条件是一个逻辑表达式。 Do循环语句的执行过程 每次进入循环都是从Do命令开始，先执行一次循环体，然后判断是否满足循环终止条件，若满足条件则退出循环，否则继续循环。Do循环语句的执行过程，可以更直观地通过流程图来表示： 练习 P54实践（1）已知S=1+2+3+…+N,找出一个最大的整数N，使得S30000,编写程序来解决问题。 P54实践（2）假设纸的长度足够长，厚度为0.1毫米，对折一次厚度增加1倍，现在对折纸张，直到总厚度超过珠穆朗玛峰的高度为止（珠穆朗玛峰的高度为8848.13米），求对折纸张的次数。编写程序解决这个问题。 作业 课本p54实践（1）（2） * * 执行循环体 满足循环终止条件吗？ 是 否 *