新VB课件第5章 循环结构.pptVIP

第五章 循环结构程序设计 5.1 循环结构概述 5.1.1 案例引入 5.1.2 循环结构 5.2 循环结构语句 5.2.1 For循环语句 5.2.1 For循环语句 5.2.1 For循环语句 循环变量：也称为循环控制变量，必须为数值型变量。 初值、终值：可以是数值型常量、变量或表达式。 步长：循环变量的增量，可以是数值型常量、变量或表达式 循环体：需要重复执行的程序代码，可以是一条或多条语句 5.2.1 For循环语句 Next [循环变量]：用于结束一次For循环，并修改循环变量的值，即将“循环变量+步长”的值赋给“循环变量”。 循环次数的计算公式为“循环次数=Int((终值-初值)/步长+1)” Exit For用于强制退出循环，可以在循环体的任何位置，一般与条件语句配合使用 5.2.1 For循环语句 5.2.1 For循环语句 5.2.2 Do循环语句 5.2.2 Do循环语句 条件表达式：可以为关系表达式、逻辑表达式或算术表达式 While表示当“条件表达式”的值为True时执行“循环体”，为False时结束循环。 5.2.2 Do循环语句 Exit Do用于强制退出Do循环，可以在循环体的任何位置，一般与条件语句配合使用 如果省略了“While条件表达式”，则循环将无条件地重复 。 5.2.2 Do循环语句 5.2.2 Do循环语句 5.2.2 Do循环语句 5.2.2 Do循环语句 5.2.2 Do循环语句 5.2.2 Do循环语句 5.2.2 Do循环语句 5.2.2 Do循环语句 5.2.3 While循环语句 5.2.3 While循环语句 5.3 循环结构嵌套 5.3 循环结构嵌套 在使用循环时，内循环变量与外循环变量不能同名。 外循环必须完整包含内循环，不能交叉。 当多重For…Next循环的Next语句连续出现时，Next语句可以合并成一条，而在其后面跟着各循环控制变量，内层循环变量写在前面，外层循环变量写在后面。 在循环体内可以使用条件语句与Exit For、Exit Do等语句来结束循环，如果用到多重循环体中，Exit For、Exit Do只能退出该语句所对应的循环。 5.3 循环结构嵌套 例5.12 换硬币 有1分、2分、5分硬币若干枚，从中取出20枚硬币使其总值为60分，求出取法的数量以及每一种取法的1分、2分、5分硬币个数。 本题属于“穷举”问题，它的基本思想是：一一列举各种可能的情况，并判断哪一种可能是符合要求的解，这种算法称为穷举法（又称“枚举法”）。 Private Sub Form_Click() Dim one%, two%, five%, n% 用one, two, five分别代表1分、2分、5分枚数 n = 0 n代表取法总数 For one = 1 To 20 For two = 1 To 20 five = 20 - one - two If （one * 1 + 2 * two + 5 * five = 60） and (five=0) Then 当20枚硬币的总值等60分，则输出 Print 1分:; one, 2分:; two, 5分:; five n = n + 1 取法总数加1 End If Next Next Print ------------------------------------ Print 总共有：; n; 种取法 End Sub 例5.13 求N！（N为自然数） 分析：由阶乘的定义，我们可以得出N！=1*2*…*（N-2）*（N-1）*N=（N-1）！*N，也就是说，一个自然数的阶乘，等于该自然数与前一个自然数阶乘的乘积。 程序如下： Private Sub Form_Click() Dim num%, n% dim fac as double n = InputBox(输入一个自然数：, 输入提示, 10) fac = 1 For num = 1 To n fac = fac * num Next I Print n; !=; fac End Sub 例5.14 求水仙花数。所谓“水仙花数”是指一个三位数，其各位数字立方和等于该本身。例如：153是一个水仙花数，因为153=1^3+5^3+3^3。 Private Sub Command1_click() Dim Num As Intege