code341a.txt

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

Public Sub Main()
  Dim I As Integer

  For I = 1 To 10
    If I = 5 Then
      GoSub SpecialMessage
    Else
      Debug.Print I
    End If
  Next
  Exit Sub

SpecialMessage:
  Debug.Print "Halfway finished!"
  Return
End Sub