一、退出本次循环：
我们提供的服务有：成都做网站、成都网站建设、成都外贸网站建设、微信公众号开发、网站优化、网站认证、瑞金ssl等。为近千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的瑞金网站制作公司
用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;
}
}
退出控制结构
用 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
Exit Do 语句可以在 Do 循环语法的所有版本中使用。
用 Exit Do 退出（结束）死循环。VB死循环主要有两种形式
第一种
Do While True
'语句
Loop
第二种
Do
'语句
Loop While True
以下程序在一个死循环中不停生成1到10000之间的随机数。当所生成的随机数等于9999时退出死循环
Option Explicit
'-----------------------------------------------
' 函数 GetRandomNumber 生成 1到10000之间的随机数
'-----------------------------------------------
Private Function GetRandomNumber() As Integer
Randomize Timer
GetRandomNumber = Int(Rnd * 10000) + 1
End Function
Private Sub Form_Click()
Dim x As Integer
'死循环
Do While True
'生成随机数
x = GetRandomNumber
'如果随机数等于9999，退出死循环
If x = 9999 Then Exit Do
Loop
' 退出死循环后，显示生成的随机数
MsgBox "生成的随即数为：" + CStr(x)
End Sub