VisualBasic控件结构概述

循环结构
循环结构允许重复执行一行或多行代码。Visual Basic支持的循环结构有:
1.do...循环2.for...接下来每个人...下一个。

做...Loop
用do循环重复执行一个语句块，重复次数不定。做...循环语句有几种演化形式，但每一种都评估数值条件来决定是否继续执行。好像...Thencondition必须是数值或值为True(非零)或False(零)的表达式。在下面做什么...循环循环，只要条件为真就执行语句。
Do While条件
语句

循环
当Visual Basic执行此Do循环时，它将首先测试条件。如果条件为假(零)，则跳过所有语句。如果条件为真(非零)，VisualBasic将执行该语句，然后返回到Do While语句再次测试该条件。
因此，只要条件为真或非零，循环就可以执行任意多次。如果条件从一开始就是假的，该语句将不会被执行。例如，以下过程将计算一个目标字符串在另一个字符串中出现的次数，并在找到目标字符串时执行循环:
函数countstrings (longstring，target)
dimposition，count
position = 1
Do While InStr(position，long string，Target)
position = InStr(position，long string，Target)_
+1
count = count+1
循环
do的又一次进化...循环语句是先执行语句，然后在每次执行后测试条件。这种形式保证语句至少执行一次:
do
statements
loop while condition
其他两种演化形式与前两种类似，只是只要条件为假而不是真，它们就执行循环。

为...Next000
当不知道循环中需要执行多少条语句时，应该使用do循环。但是，当您知道要执行多少次时，您可以使用For...下一个循环。与Do循环不同，For循环使用一个名为counter的变量，counter变量的值会在每次循环重复后增加或减少。For循环的语法如下:
For Counter = Start to end[step increment]
语句
Next [counter]
参数Counter、Start、end和increment都是数字。
请注意，increment参数可以是正数，也可以是负数。如果增量为正，Start必须小于或等于end否则，无法执行循环中的语句。如果increment为负，Start必须大于或等于end才能执行循环体。如果未设置步长，增量的默认值为1。
执行For循环时，Visual Basic
1。将计数器设置为启动。
2。测试计数器是否大于end。如果是这样，Visual Basic将退出循环。(如果increment为负，Visual Basic将测试计数器是否小于end。)
3。执行语句。
4。将计数器加1，或增加(如果指定)。
5。重复步骤2至4。
以下代码打印出所有有效的屏幕字体名称:
Private subform _ click()
dim I as integer
For I = 0 to screen . font count
screen . fonts(I)
next
end sub
在VCR示例应用程序中，HighlightButton进程使用...下一个循环遍历VCR窗体的控件集合。并显示适当的形状控件:
子突出显示按钮(my control as variant)
dim I as integer
for I = 0 tofmvcr . controls . count-1
If type of frm vcr。控件(I)是Shape，然后
If frmVCR。对照(一)。Name = MyControl Then
frmVCR。对照(一)。visible = True
Else
frmVCR。对照(一)。visible = False
End If
End If
Next
End Sub

对于每个...每个的下一个
...下一个循环类似于For...下一个循环，但是它为数组或对象集合中的每个元素重复一组语句，而不是重复这些语句一定的次数。如果您不知道一个集合有多少个元素，则每个元素的...下一个循环非常有用。
对于每个...下一个循环的语法如下:
For each Element in group
Statements
Next Element
例如，下面的子进程打开Biblio.mdb并将每个表的名称添加到列表框中。
Sub ListTableDefs()
Dim objDb As Database
Dim MyTableDef As TableDef