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。