VB的控件结构概述

　　循环结构

　　循环结构允许重复执行一行或数行代码。Visual Basic 支持的循环结构有：

　　1.Do...Loop

　　2.For...Next

　　3.For Each...Next

　　Do...Loop

　　用 Do 循环重复执行一语句块，且重复次数不定。Do...Loop 语句有几种演变形式，但每种都计算数值条件以决定是否继续执行。如同 If...Thencondition 必须是一个数值或者值为 True(非零)或 False(零)的表达式。在下面的 Do...Loop 循环中，只要 condition 为 True 就执行 statements。

　　Do While condition

　　statements

　　Loop

　　当 Visual Basic 执行这个 Do 循环时会首先测试 condition。如果 condition为 False(零)，则跳过所有语句。如果 condition 为 True(非零)，则 VisualBasic 执行语句，然后退回到 Do While 语句再测试条件。

　　因此，只要 condition 为 True 或非零，循环可以随意执行多少次。如果condition 一开始便为 False，则不会执行语句。例如，以下过程将计算某一目标字符串在另一字符串中出现的次数，只要发现目标串就执行循环：

　　Function CountStrings (longstring, target)

　　Dim position, count

　　position = 1

　　Do While InStr (position, longstring, target)

　　position = InStr(position, longstring, target)_

　　+ 1

　　count = count + 1

　　Loop

　　CountStrings = count

　　End Function

　　如果目标字符串未出现在另一个字符串中，则 InStr 返回 0，而且不再执行循环。

　　Do...Loop 语句的另一种演变形式是先执行语句，然后在每次执行后测试condition。这种形式保证 statements 至少执行一次：

　　Do

　　statements

　　Loop While condition

　　其它两种演变形式类似于前两个，所不同的是，只要 condition 为 False 而不是 True，它们就执行循环。

　　For...Next000

　　在不知道循环内需要执行多少次语句时，宜用 Do 循环。但是，在知道要执行多少次时，则最好使用 For...Next 循环。与 Do 循环不同， For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会增加或者减少。For 循环的语法如下：

　　For counter = start To end [Step increment]

　　statements

　　Next [counter]

　　参数 Counter、Start、end 和 increment 都是数值型的。

　　注意 increment 参数可正可负。如果 increment 为正，则 Start 必须小于等于end，否则不能执行循环内的语句。如果 increment 为负，则 Start 必须大于等于 end，这样才能执行循环体。如果没有设置 Step，则 increment 缺省值为 1。