04 循环结构.ppt

上述程序使用了三重For…Next循环，循环计数器变量分别为x、y、z，代表5元、10元和20元的个数，20个5元、10个10元和5个20元之内共有21×11×6＝1386种组合，内嵌If…Then判断总和正好等于100元的只有36种，如图4.35所示。 图4.35 兑换零钱 Thank you 还有什么疑问可以到提出 也可以以发送邮件到 mingrisoft@ 删除视图中的数据 * Logo Logo Logo Logo Logo Logo Logo Logo Logo Logo Logo 循环结构 本讲大纲： 1.For…Next循环语句 2.For Each…Next循环语句 3.Do…Loop循环语句 4.掌握While…Wend循环语句 5.在程序中使用多重循环 6.选择结构与循环结构的嵌套 支持网站： For…Next循环语句 当循环次数确定时，可以使用For…Next语句。 语法： For 循环变量 = 初值 To 终值 [Step 步长] 循环体 [Exit For] 循环体 Next 循环变量 For…Next语句执行过程如图4.26所示。 图4.26 For语句的执行流程图 （1）如果不指定“步长”，则系统默认步长为1；当“初值＜终值”时，“步长”为0；当“初值＞终值”时，“步长”应小于0。 （2）Exit For用来退出循环，执行Next后面的语句。 （3）如果出现循环变量的值总是不超出终值的情况，则会产生死循环。此时，可按【Ctrl+Break】组合键，强制终止程序的运行。 （4）循环次数N=Int((终值－初值)/步长+1)。 （5）Next后面的循环变量名必须与For语句中的循环变量名相同，并且可以省略。 【例4.11】 在ComboBox下拉列表控件中添加1～12个月，程序代码如下： Private Sub Form_Load() Dim i% 定义一个整型变量 For i = 1 To 12 Combo1.AddItem i 月 Next i End Sub 按【F5】键，运行工程，效果如图4.27所示。 图4.27 For语句的简单应用 如果只显示2、4、6等偶数月份，则应将上述代码改为： Private Sub Form_Load() Dim i% For i = 1 To 12 Step 2 Combo1.AddItem i + 1 月 Next i End Sub 如果只显示1、3、5等奇数月份，则只需要将上述代码中的Combo1.AddItem i + 1 月改为Combo1.AddItem i 月。 另外，For循环中的计数还可以是倒数，只要把间隔值设为负值（即间隔值小于0），而令初始值大于终止值就可以了。这时，循环的停止条件将会变成当计数值小于终止值时停止。 例如，在窗体上输出10～1的整数，代码如下： Private Sub Form_Click() Dim i% For i = 10 To 1 Step -1 Print i Next i End Sub For Each…Next循环语句 For Each…Next语句用于依照一个数组或集合中的每个元素，循环执行一组语句。 语法： For Each 数组或集合中元素 In 数组或集合 循环体 [Exit For] 循环体 Next 数组或集合中元素 说明： ①“数组或集合中元素”：必要参数，是用来遍历集合或数组中所有元素的变量。对于集合，可能是一个Variant类型变量、一个通用对象变量或任何特殊对象变量；对于数组，这个变量只能是一个Variant类型变量。 ②“数组或集合”：必要参数，对象集合或数组的名称（不包括用户定义类型的数组）。 ③ 循环体：可选参数，循环执行的一条或多条语句。 【例4.12】 使用For Each…Next语句列出窗体上所有控件名称，程序代码如下： Private Sub Form_Click() Dim Myctl As Control For Each Myctl In Me.Controls 遍历窗体中的控件 Print Myctl.Name Next Myctl End Sub 按【F5】键，运行工程，效果如图4.28所示。 图4.28 在窗体中显示所有控件名称 Do…Loop循环语句 对于那些循环次数难以确定，但