Visual Basic程序设计与实训 教学课件 ppt 作者 苏玉雄 电子教案 第5章

第 5 章 循环结构程序设计,本章学习目标,5.1 For循环,For循环格式: For 循环变量初值 To 终值 Step 步长 Exit For 循环体 Next 循环变量,5.1.1 For格式说明,流程图:,5.1.1 For格式说明,循环变量也称“循环计算器”或“循环控制变量”，用来记录循环的次数。 初值与终值均为数值或数值型表达式，表示循环的开始位置和终止位置，初值与终值的大小不固定。 步长是一个数值表达式，为循环变量的增量；如果省略，默认为1。当初值小于终值时步长为正书数，当初值大于终值时步长为负数。 Exit For可用于提前退出for循环。 Next后面的“循环变量”与For后面的“循环变量”必须相同。 执行步骤： 把“初值”赋给“循环变量” 检查“循环变量”是否超过终值，若没有则执行循环体，若超出则结束循环，执行Next后面的语句 循环变量加步长，转，继续循环。 直到循环变量达到终值时退出该循环。 由上可看出For-Next循环的循环次数由初值、终值和步长三个因素决定，计算公式为：循环次数Int（终值初值）/步长1。,案例5-1,案例5-1：单击窗体时，在窗体上打印输出5个“_”符号。,案例5-1,【案例分析】：如果在本实例中我们使用5个Print语句也可以达到效果，但书写比较麻烦。实际上这个一个重复5次输出的过程，所以我们使用For循环结构。本实例中，循环变量初值为1，总共循环5次，所以总值为5。 【操作步骤】： 1、界面设计 新建一窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码如下： Private Sub Form_Click() For i = 1 To 5 循环变量初值为1、终值为5 Print “_“ 循环体 Next i 下一次循环，直到结束 End Sub 结束 思考：如果循环起始值为0可以吗？循环的起始值和终止值有什么要求？,案例5-2,案例5-2：单击窗体时，在窗体上打印110。如图所示：,案例5-2,【案例分析】：可以看出这个实例是采用循环语句，这个实例与案例1的区别主要在于案例1中打印的每个内容都一样，而此例中每次输出的都不一样。仔细观察我们可以看到打印的内容其实和循环变量的变化是一致的。所以可以打印循环变量达到效果。 【操作步骤】： 1、界面设计 新建一窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码 Private Sub Form_Click() For i = 1 To 10 Print i 打印输出循环变量 Next i End Sub 思考：假设我们将这十个数分两行输出，每行5个如何实现？,课堂练习5-1,课堂练习5-1：点击窗体，在窗体上打印输出120内的所有奇数的和。 【案例分析】：该实例和案例3很相似，但区别在于起始值不一样。同时这里使用到了数据的累加。 【操作步骤】： 1、界面设计： 新建一个窗体Form1，打开代码窗口，找到FORM_CLICK事件. 2、程序代码 Private Sub Form_Click() Dim s As Integer For i = 1 To 20 Step 2 i的初值为1，终值为20，步长为2 s = s +i 累加 Next i Print “计算结果为：“ & s End Sub 思考：1、本实例中S变量的初始值是多少？ 2、打印结果的语句可不可以放在循环内部？,课堂练习5-2,课堂练习5-2：点击窗体，在窗体上打印输出120内的所有能被3整除的数的乘积。 【案例分析】：该实例和课堂练习1很相似，它的起始值应该是3，步长应该是3。同时本实例中涉及到了乘积，乘积和累加的不同在于乘积的起始值必须为1。 【操作步骤】： 1、程序代码： Private Sub Form_Click() Dim s As Long s = 1 s的初值要为1 For i = 3 To 20 Step 3 i的初值为3，终值为20，步长为3 s = s * i 累积过程 Next i Print “计算结果为：“ & s End Sub 思考：1、本实例中S变量声明为整形可以吗？为什么？ 2、变量初始化语句能不能放在程序内部？ 3、如果我们需要能被3和2同时整除的数，那么步长应该是多少。,5.2 While循环,While语句的格式： While 循环体 Wend,5.2.1 While格式说明,While语句的格式： While 循环体 Wend,流程图如图所示：,执行过程如下： 执行While语句，判断条件是否成立； 如果条件成立，就执行循环体，否则，转到4执行； 执行Wend语句，转到1执行； 执行Wend语句下面的语句。,案例5-4,案例5-4：单击窗体时，显示1+2+3+100的值。 【案例分析】：本实例是一个循环计算并显示的过程，可以利While循环语句结构来实现，它的关键是要找到循环条件，在本实例中，实现循环的条件就是循环变量i的值不大于100。本案例中循环变量的初始值为1，累加变量的初始值为0，循环条件为计数变量不大于100。 【程序代码】 Private Sub Form_Click() Dim i , Sum As Integer 定义循环变量和累加变量 i=1 循环变量初始值为1 Sum=0 累加变量初始值为0 While i=100 循环满足的条件 Sum = Sum + i 执行循环体 i = i + 1 修改循环结束条件 Wend MsgBox “1+2+3+100=“ & Sum '将结果显示出来 End Sub,案例5-5,案例5-5：求1+1/2+1/3+1/n的和，要求计算到第n项的值小于0.0005。 【案例分析】：本案例仍然是进行求和运算，但每次参加运算的数是一个分数，分子始终为1，分母是这个数的序号，例如1，2，3，一直加到第n项的值 0.0005 循环满足的条件 Sum = Sum + 1/i 执行循环体 i = i + 1 修改循环变量的值，使循环趋于结束 Wend Print “计算结果是”&Sum 打印结果 End Sub,课堂练习5-3,课堂练习5-3：由键盘中输入10个任意整数，找出其中的最大数和最小数。 【案例分析】：本案例利用While循环来输入整数，然后通过if语句找出最大数和最小数。解题思路是当输入第一个整数时，由于此时只有一个数，故其既是最大数也是最小数，然后利用循环输入其它9个数，当每输入一个新数时，将新数与max和min比较，从而找出最大数和最小数，当循环结束时，最大数和最小数就已经保存在max和min中了。 【程序代码】： Private Sub Form_Click() Dim a As Integer, max As Integer, min As Integer, i As Integer a = Val(InputBox(“请输入任意一个整数“) max = a min = a i = 1 While i max Then max = a If a min Then min = a i = i + 1 Wend Print “max=“ & max, “min=“ & min End Sub,5.3 DoLoop循环,DoLoop型循环是最常见且最有效的循环结构。 语句格式为： Do 循环体 Loop 循环的关键是“有始有终”。所以，本语句结构的关键在于如何根据实际要求设置条件来限定循环次数，其解决的方法就是在DoLoop循环结构中添加分支语句，例如： Do 循环体 If 满足条件 Then Exit Do Loop 说明：Exit Do表示退出当前这层的DoLoop循环结构。选择结构用来设定条件，当满足设定条件时退出DoLoop循环，执行Loop后面的语句。,5.3.1 DoUntilLoop循环语句,1、Until前置型结构 Do Until 循环条件 循环体 Loop 【分析】： 该结构循环条件位于循环的开始部分。循环开始时就进行循环条件判断，所以循环体有可能一次都不执行循环。 Until循环结构中，如果不满足循环条件就执行循环，如果满足循环条件就跳出循环，例如上题中当s=200的情况就立即退出循环。 Until循环不同于For循环，循环变量需要人为编程进行改变，例如上题中的变量S需要每次加数值。,流程图如图,5.3.1 DoUntilLoop循环语句,2、Until后置型结构 Do 循环体 Loop Untill 循环条件 该结构循环条件位于循环的结尾部分。循环结束时就进行循环条件判断，所以循环体最少会执行一次。 其他循环变量的设置、循环条件的设置与前置型相同。,开始,5.3.2 DoWhileLoop循环语句,While循环结构与Until结构类似也可以根据循环条件的位置分为前置型和后置型。 While循环结构的前置型和后置型与Until循环结构相同，前置型可能一次都不执行循环体，而后置型最少会执行一次循环语句。 While循环结构的循环执行条件与Until正好相反，当程序满足循环条件执行循环，当不满足条件时退出循环。如上题中当s 200执行循环内容。 While循环结构中的循环变量与Until结构一样，需要人为编程进行改变，例如上题中的变量s需要每次加数值。 该结构的流程图与Until结构的流程图相同。,案例5-6,案例5-6：单击窗体时，显示1+2+3+100的值。 【案例分析】：本实例是一个循环计算并显示的过程，可以利用DoUntilLoop循环语句结构和DoWhileLoop循环语句结构来实现，循环条件是循环变量i的值不大于100。 【代码分析】： Private Sub Form_Click() Dim i, s As Integer 'i为循环变量，s为计算的和 i = 1 Do Until i = 101 '当i的值大于100时，将跳出循环 s = s + i i = i + 1 Loop MsgBox “1+2+3+100=“ & s '将结果显示出来 End Sub,案例5-7,案例5-7：单击窗体时，求1+2+3+i的和s不大于100时的i值。 【案例分析】：本实例是一个不确定循环次数的结构，可以利用DoUntilLoop循环语句结构和DoWhileLoop循环语句结构来实现，在本实例中，实现循环的条件就是s值大于100。 【代码分析】： Private Sub Form_Click() Dim i, s As Integer i = 1 Do While s = 100 '循环条件s不大于100，大于100后将跳出循环 s = s + i i = i + 1 Loop MsgBox “i的值是“ & i - 1 End Sub,课堂练习5-4,课堂练习5-4：点击窗体，在窗体上打印输出120内的所有不能被3整除的数。 【案例分析】：该实例同样是要寻找循环的出界条件，不难分析循环条件为i 0 Th