用Exit For
创新互联建站是一家专注于网站设计制作、成都网站建设与策划设计,海陵网站建设哪家好?创新互联建站做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:海陵等地区。海陵做网站价格咨询:028-86922220
For Each...Next 语句示例
本示例使用 For Each...Next 语句搜寻集合中的所有成员的 Text 属性，查找“Hello”字符串。示例中，MyObject 是面向文本的对象，并且是 MyCollection 集合的成员，这两个名字只是为示范目的而使用的通用名称而已。
Dim Found, MyObject, MyCollection
Found = False ' 设置变量初始值。
For Each MyObject In MyCollection ' 对每个成员作一次迭代。
If MyObject.Text = "Hello" Then ' 如果 Text 属性值等于“Hello”。
Found = True ' 将变量 Found 的值设成 True。
Exit For ' 退出循环。
End If
Next
一、退出本次循环：
用goto语句处理，例如：
For i = 0 To 10
If i Mod 2 = 0 Then GoTo e
.....
....
e:
Next i
二、退出整个for循环用：exit for
扩展资料：
注意事项
常见的for循环一般是一下代码这种结构：
for (int i = 0; i 100; i++)
{
Console.WriteLine(i);
}
或者递减的：
for (int i = 100; i 0 ; i--)
{
Console.WriteLine(i);
}
但for当然不止这样一种用法。for的定义，()内的三段表达式，除了中间的必须产生布尔型，并未对其余两段有所限制，只要是表达式就可以了。在Lucene.Net中就有好几次这样的用法。例如：
for (Token token = input.Next(result); token != null; token = input.Next(result))
{
int len = token.TermText().Length;
if (len = min len = max)
{
return token;
}
}
假设字符串变量是Mystring
下面是代码
Dim MyKeyWord as string
Dim iCount as long
Dim SSFind as long
iCount = 1
Do
SSFind = Instr(iCount , MyKeyWord,Mystring )
Doevents
loop while SSFind 0
不想用单步循环可以用别的比如for ...next代替，或在loop里面加goto语句，不过goto容易使代码混乱。编程求代码简单高效，不用纠缠在某个语句上面。
vb中没有break语句，而是使用Eixt跳出循环。
for……next循环用exit for 跳出。
do……loop循环用exit do跳出。
