《VB程序设计do循环实例》由会员分享，可在线阅读，更多相关《VB程序设计do循环实例（15页珍藏版）》请在金锄头文库上搜索。
1、课前回顾：课前回顾：FOR语句格式：语句格式： For 循环变量循环变量 = 初值初值 to 终值终值 step 步长步长 循环体循环体 Next 循环变量循环变量x=0For i=1 to 20 if (i mod 2=0) and (i mod 3=0) then x=x+i end ifNext iPrint xS=0For k= 3 to 5 S=s+3Next kPrint s练习(学业水平测试题)2021/7/12021/7/11 11、s=1+1/2+1/3+1/4+1/n，当，当n=?时，时，s第第一次大于一次大于10。 请同学们仔细观察，用曾经学过的程序设请同学们仔细观察，用
2、曾经学过的程序设计的方法能解决这两个问题吗？计的方法能解决这两个问题吗？想一想：想一想：2021/7/12021/7/12 2dodo循环语句：循环语句： Do while Do while 条件表达式条件表达式条件表达式条件表达式 循环体循环体循环体循环体 LOOP LOOP流程图流程图表达式是否为真循环体循环体LOOPyn如：我从如：我从0岁到岁到1岁每天吃饭用岁每天吃饭用while表示？表示？注意：注意： 1、定义初值、定义初值 2、确定条件表达式、确定条件表达式 3、写循环体（循环体中要有能改变循环条件的语句）、写循环体（循环体中要有能改变循环条件的语句）i=0 do while i=
3、364 吃饭吃饭 i=i+1 loopFor I=0 to 364 step 1吃饭吃饭next i2021/7/12021/7/13 3例例1、s=1+1/2+1/3+1/4+1/n，当当n=?时，时，s第一次大于第一次大于10 Do While 条件表达式条件表达式 循环体循环体 Loop Do While.Loop语句的功能：语句的功能：当条件成立当条件成立(为真为真)时，执行循时，执行循环体；当条件不成立环体；当条件不成立(为假时为假时)，终止循环，终止循环程序：程序：S=0n=0do while （ ） n=n+1 s=s+1/nloopmsgbox n累加器计数器特征：无法预先知道
4、循环的次数，特征：无法预先知道循环的次数，在递推过程中才能确定是否结束循在递推过程中才能确定是否结束循环环s=102021/7/12021/7/14 4利用利用DO循环写程序要点：循环写程序要点：（1）首先要确定初值）首先要确定初值（2）确定满足循环条件的表达式（逻辑型）确定满足循环条件的表达式（逻辑型）（3）写循环体，）写循环体，在循环体中一定要有能改在循环体中一定要有能改变循环条件变量的表达式变循环条件变量的表达式说明：For循环只能用在循环次数已知的情况；凡是用FOR循环的程序都可以用DO循环来写；而循环次数未知时，只能用DO循环。2021/7/12021/7/15 5上机实践：上机实践
5、：津津将津津将10000元钱存入银行，银行的年利率元钱存入银行，银行的年利率为为1分（即分（即10%），如一直不取出，问按照利滚利的计），如一直不取出，问按照利滚利的计算方法，至少经过多少年津津才能拿到算方法，至少经过多少年津津才能拿到150000元？元？Dim s as single, year as integers = 10000year = 0Do While _ _ s = s * (1 + 0.1)LoopMsgBox year分析：分析：第一年：第一年： S1=10000*(1+0.1)第二年：第二年： S2=S1*(1+0.1)第三年：第三年： S3=S2*(1+0.1)yea
6、r = year + 1S1500002021/7/12021/7/16 6枚举算法2021/7/12021/7/17 7水仙花问题：n n春天是鲜花的季节，水仙花就是其中最迷人的代表，数学上有个水仙花数，他是这样定义的：“水仙花数”是指一个三位数，它的各位数字的立方和等于其本身，比如：153=13+53+33。现在要求输出所有在100和999范围内的水仙花数。2021/7/12021/7/18 8分析：n n设三位数i，百位数为a,十位数为b，个位数为cn n初始值i=100n n枚举范围：i=999n n满足条件：i=a3+b3+c3思考：如何取出三位数的每位数字？思考：如何取出三位数的每
7、位数字？2021/7/12021/7/19 9流程图流程图程序代码程序代码100=i=999a=i100b=i10 mod 10c=I mod 100i=a3+b3+c3输出i是退出i=i+1Private Sub Command1_Click()Dim I, a, b, c As IntegerI = 100Do While I = 999 a = I 100 b = I 10 Mod 10 c = I Mod 10 If I = a 3 + b 3 + c 3 Then n = n + 1 List1.AddItem Str(I) End If I = I + 1 Loop Text1.T
8、ext = Str(n)End Sub2021/7/12021/7/11010列表框列表框列表框的功能：多列显示。2021/7/12021/7/11111列表框属性Additem方法：增加新项目如方法：增加新项目如: list1 . Additem str(4)removeitem方法：删除项目，小心：列表框第一个序号是方法：删除项目，小心：列表框第一个序号是 如：如： litst1.removeitem 4clear方法：清除所有项目方法：清除所有项目 如：如：list1.clear控件方法使用格式：控件名控件方法使用格式：控件名.方法方法值值说明：可以没有值说明：可以没有值2021/7/1
9、2021/7/11212控件名称：image 图片框 功能：可以加载图片、显示文字、画图外，它还能与Frame对象一样，在自己本身里头加载其它的对象而自成一个小群组属性：picture(加载图片） stretch(返回或设置一个值，该值用来指定一个图形是否要调整大小，以适应与 Image 控件的大小。True 表示图形要调整大小以与控件相适合。 False （缺省值）表示控件要调整大小以与图形相适。 image2021/7/12021/7/11313什么是枚举？n n 现实世界中有一类问题可以采用搜索的方法，现实世界中有一类问题可以采用搜索的方法，现实世界中有一类问题可以采用搜索的方法，现实世
10、界中有一类问题可以采用搜索的方法，在搜索结果的过程中，把各种可能的情况都考虑在搜索结果的过程中，把各种可能的情况都考虑在搜索结果的过程中，把各种可能的情况都考虑在搜索结果的过程中，把各种可能的情况都考虑到，并对全部可能结果逐一进行判断，过滤掉那到，并对全部可能结果逐一进行判断，过滤掉那到，并对全部可能结果逐一进行判断，过滤掉那到，并对全部可能结果逐一进行判断，过滤掉那些不符合要求的，保留符合要求的结果，这种方些不符合要求的，保留符合要求的结果，这种方些不符合要求的，保留符合要求的结果，这种方些不符合要求的，保留符合要求的结果，这种方法叫做枚举算法。法叫做枚举算法。法叫做枚举算法。法叫做枚举算法。n n优点：优点：优点：优点： 1 1、简单、简单、简单、简单n n 2 2、准确性高、准确性高、准确性高、准确性高n n 3 3、全面性、全面性、全面性、全面性n n缺点：缺点：缺点：缺点： 最耗时最耗时最耗时最耗时2021/7/12021/7/11414 结束语结束语若有不当之处，请指正，谢谢！若有不当之处，请指正，谢谢！
