code81a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 18 行

Public Sub Main()
  Dim Counter As Integer

  Debug.Print "First loop"
  For Counter = 1 To 100
    If Counter = 50 Then Exit For
    Debug.Print Counter;
  Next
  
  Debug.Print
  Debug.Print "Next loop"
  For Counter = 100 To 1 Step -1
    If Counter = 50 Then Exit For
    Debug.Print Counter;
  Next

End Sub