vb.net循环如何中断,vb中断程序

vb.net 有没有终止某个语句的方法？

定义一个公有布尔值变量 flag，初始值 False。

循环里最开始 If 判断一下 flag，如果为 True 就 Exit Do 跳出循环，否则继续循环。

然后在别的函数控制 flag 的值就可以了。

P.S. 你这段代码是死循环，直到程序占用内存越来越大溢出进而程序崩溃为止……

相关问答

Q1: VB for循环怎么在循环内设置停止循环？

VB中用 Exit 语句可以直接退出 For 循环、Do 循环、子过程或函数过程。Exit 语句的语法很简单：Exit For 在 For 循环中出现的次数没有限制，Exit Do 在 Do 循环中出现的次数也没有限制。

Exit For 和 Exit Do非常有用，因为它有时适于立即退出循环，而且不再执行循环中的任何进一步迭代或者语句。例如，在前面的打印屏幕和打印机共有字体的例子中，程序不断将打印机字体和给定的屏幕字体作比较，甚至在已经找到了一个相符的打字机字体后还在继续寻找。对这个函数有一个效率更高的改进版，在此，只要找到相匹配的字体后就立即退出循环：

Private Sub Form_Click()

    Dim SFont, PFont

    For Each SFont In Screen.Fonts()

        For Each PFont In Printer.Fonts()

            If SFont = PFont Then

                Print SFont

                Exit For            '退出内圈循环。

            End If

        Next PFont

    Next SFont

End Sub

Q2: 在vb中如何结束本次循环

退出本次循环(而不是退出循环)

VB中没有continue语句,那是C语言的

方法一:

if XXX then goto 标号(标号标在next前或者loop前视循环类型而定)

例如(下例跳过6):

for i = 1 to 10

if i = 6 then goto lin0

print i

lin0: next

方法二(利用if语句,在条件不成立时什么也不执行):

例如(下例跳过6):

for i = 1 to 10

if i 6 then

print i

end if

next

方法三:(利用循环变量的值跳过)这种方法对do...loop循环不行

例如(下例跳过6):

for i = 1 to 10

print i

if i = 5 then i=i+1

next

Q3: 使用VB时调试一个程序,陷入死循环,如何停止

ctrl+break或ctrl+c，有时要多按几下,然后结束所运行的程序保存即可。另copy外，建议你点击菜单工具--选项，选择环境选项卡，选中“启动程序时”“提示保存改变”，这样可zhidao以提醒你在运行前保存程序。

Q4: VB如何暂停循环

最完美的做法是使用多线程，其他方式都要付出性能代价。

可以放一个checkbox上去，默认check状态是false

在循环中放入一句

doevents

Halt: if checkbox.value=1 then goto Halt

如果被勾选了，就死循环在这里，直到取消勾选。

这种方法非结构化，而且不能精确定位和调试程序，我建议你设定断点，或者条件断点。