VB 第十一讲.ppt

《VB 第十一讲.ppt》由会员分享，可在线阅读，更多相关《VB 第十一讲.ppt（13页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、第十一讲第十一讲 循环结构循环结构Visual Basic 程序设计教程程序设计教程内蒙古科技大学工程训练中心韩 艳主要内容主要内容 For next For next 循环语句的使用循环语句的使用 while wend while wend 循环语句的使用循环语句的使用 do Loop do Loop 循环语句的使用循环语句的使用2工程训练中心工程训练中心一、一、循环结构循环结构循环结构循环结构 1、ForNext循环循环 For循环也称ForNext循环或计数循环，常用于循环次数已知的程序中。格式：For=To Step Exit For Next 例例：For i1 To 10 Step

2、 2 Print i Next i结果：依次输出1 1、3 3、5 5、7 7、9 9。共执行5 5次 Print iPrint i 语句；说明：循环变量：为一数值变量(或为简单变量)；初值、终值、步长值：均为数值型，若为实数，则自动取整；Exit ForExit For：用于退出循环。循环次数：循环次数IntInt(终值初值)/步长值1)1)3工程训练中心工程训练中心一、一、循环结构循环结构循环结构循环结构开始循环变量初值循环变量终值执行循环体循环变量循环变量步长结束(b)步长为负数YN4工程训练中心工程训练中心一、循环结构一、循环结构例：例：求自然数求自然数n n的阶乘的阶乘。Dim n

3、As Integer,k As Long,i As Integern=Val(InputBox(“请输入一个整数：请输入一个整数：)k=1For i=1 To n k=k*iNextPrint n;!=;k解题思路：解题思路：首先利用inputbox输入n的值，利用ForNext循环，以及连乘方法，即可求出n！思考：如果求思考：如果求5工程训练中心工程训练中心一、循环结构一、循环结构例：例：求求1 11/2+1/3+1/4+1/2+1/3+1/4+1/n+1/n。该题通项为该题通项为a ai i=1/i =1/i ，求，求 。sum=0 n=Val(Text1.Text)For i=1 To

4、n sum=sum+1/i Next Print n;项的和为：项的和为：;sum解题思路解题思路：首先利用textbox或inputbox输入n的值，在ForNext循环内利用累加，求出每个单项的值，以及总和。6工程训练中心工程训练中心一、一、循环结构循环结构循环结构循环结构 ForFor循环可以嵌套，但内外循环之间不得交叉：一般形式：For I1=For I2=For I3=Next I3 Next I2 Next I1 省略Next后面的循环变量：For I1=For I2=For I3=Next Next Next 当内外循环有相同的终点时，可共用一个NextNext语句，此时Next

5、Next后面的循环变量名不能省。For I1=For I2=For I3=Next I3,I2,I1 7工程训练中心工程训练中心一、一、循环结构循环结构循环结构循环结构 并列的循环可以共用一个变量名作循环变量名，而嵌套的循环不能用同一并列的循环可以共用一个变量名作循环变量名，而嵌套的循环不能用同一个变量名作循环变量名。如个变量名作循环变量名。如：For i=1 To 5 For i=1 To 10 Next Next错错误误For i=1 To 5 Next For i=1 To 10 Next正正确确8工程训练中心工程训练中心一、循环结构一、循环结构2、WhileWend循环循环 While

6、又称当循环，根据某一条件进行判断，决定是否执行循环。格式：While 条件条件 循环体循环体 Wend开始计算“条件”值条件为“真”？循环体结束YN功能：当给定的条件为真时，执行循环体当给定的条件为真时，执行循环体；说明：While循环语句首先对“条件”进行测试，然后决定是否执行循环体；若“条件”总是成立，则不停地执行循环 体，构成“死循环”。Ctrl+Break 当循环可以嵌套，不允许交叉；9工程训练中心工程训练中心一、循环结构一、循环结构2、WhileWend循环循环 例：例：小红今年小红今年1212岁，她父亲比她大岁，她父亲比她大3030岁，编程计算出她的父亲在几年后比她年岁，编程计算出

7、她的父亲在几年后比她年龄大一倍。龄大一倍。解题思路解题思路：利用While循环语句，循环的条件时“小红的年龄*2父亲的年龄”，在循环体中，小红的年龄累加1,直到”小红的年龄*2父亲的年龄“时，退出While循环。另：本题也可使用ForNext循环语句解答。Dim age As Integer age=12 While age*2 age+30 age=age+1 Wend Print 经过经过;age-12;年，小红父女的年龄分别是：年，小红父女的年龄分别是：;age+30;10工程训练中心工程训练中心一、循环结构一、循环结构3、DoLoop循环循环 格式1：Do While|Until Ex

8、it Do Loop 格式2：Do Exit Do Loop While|Until 功能：当循环“条件”为真（WhileWhile条件）或直到指定的循环结束“条件”为真之前(UntilUntil条件)重复执行循环体。11工程训练中心工程训练中心一、循环结构一、循环结构说明：While是当条件为True时执行循环，而Until则是在条件变为True之前重复 (2)在格式1中，While和Until放在循环的开头是先判断条件，再决定是否执行 循环体；在格式2中，While和Until放在循环的尾部，是先执行循环再判断 条件，以决定是重复循环还是终止循环。格式2至少要执行一遍循环体，而格式1则可能循环体一遍不执行。12工程训练中心工程训练中心一、循环结构一、循环结构例如例如：求求1 1100100的自然数之和的自然数之和。n=1:sum=0 Do While n100 sum=sum+n n=n+1 Loop Print“Sum=“;Sum n=1:sum=0 Do sum=sum+n n=n+1 Loop While n100 Print“Sum=“;Sum 13工程训练中心工程训练中心