Question

在VB中,如何强制退出循环结构

Answer 1

VB可使用Exit语句可强制退出循环结构。

Exit 语句，退出 Do...Loop、For...Next。 

语法

Exit Do

Exit For

Exit 语句示例

本示例使用 Exit 语句退出 For...Next
循环、Do...Loop 循环及子过程。

Sub ExitStatementDemo()
Dim I, MyNum
   Do            ' 建立无穷循环。
      For I = 1 To 1000   ' 循环 1000 次。
         MyNum = Int(Rnd * 1000)   ' 生成一随机数码。
         Select Case MyNum   ' 检查随机数码。
            Case 7: Exit For   ' 如果是 7，退出 For...Next 循环。
            Case 29: Exit Do   ' 如果是 29，退出 Do...Loop 循环。
            Case 54: Exit Sub   ' 如果是 54，退出子过程。
         End Select
      Next I
   Loop
End Sub

Answer 2

Dim IFStop As Boolean '//定义是否停止

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 10000
If IFStop = False Then '//如果IFstop为False时，既不停止时...
List1.AddItem i
DoEvents
Else '//如果IFstop为True时，既停止时...
Exit For '//退出循环
End If
Next i
End Sub

Private Sub Command2_Click()
IFStop = True '//停止
End Sub

Answer 3

exit 循环语句

比如

for i = 1 to 2

exit for

next i

Answer 4

do...loop 用exit do
for...next 用exit for