VB的控件结构概述(3)

　　请记住使用 For Each...Next 时的几点限制：

　　1.对集合，element 只能是 Variant 变量，或一般的 Object 变量，或“对象浏览器”中列出的对象。

　　2.对数组，element 只能是 Variant 变量。

　　3.For Each...Next 不能与用户自定义类型的数组一起使用，因为 Variant 不可能包含用户自定义类型。

　　使用控制结构

　　嵌套控制结构可以把控制结构放入另一个控制结构之内(例如在 For...Next 循环中的If...Then 块)。一个控制结构内部包含另一个控制结构叫做 nest(嵌套)。在 Visual Basic 中，控制结构的嵌套层数没有限制。按一般习惯，为了使判定结构和循环结构更具可读性，总是用缩排方式书写判定结构或循环的正文部分。

　　例如，下面的过程要把打印机和屏幕共有的字体名全部打印出来：

　　Private Sub Form_Click ()

　　Dim SFont, PFont

　　For Each SFont In Screen.Fonts ()

　　For Each PFont In Printer.Fonts ()

　　If SFont = PFont Then

　　Print SFont

　　End If

　　Next PFont

　　Next SFont

　　End Sub

　　注意，第一个 Next 关闭了内层的 For 循环，而最后一个 For 关闭了外层的 For 循环。同样，在嵌套的 If 语句中，End If 语句自动与最靠近的前一个 If 语句配对。嵌套的 Do...Loop 结构的工作方式也是一样的，最内圈的 Loop 语句与最内圈的 Do 语句匹配。

　　退出控制结构

　　用 Exit 语句可以直接退出 For 循环、Do 循环、子过程或函数过程。Exit 语句的语法很简单：Exit For 在 For 循环中出现的次数没有限制，Exit Do 在Do 循环中出现的次数也没有限制。

　　For counter = start To end

　　[Step increment]

　　[statementblock]

　　[Exit For]

　　[statementblock]

　　Next [counter[, counter] [,...]]

　　Do [{While | Until} condition]

　　[statementblock]

　　[Exit Do]

　　[statementblock]

　　Loop