code71a.txt

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

Public Sub Main ()
  Dim Counter as Integer

  Debug.Print "Starting first loop"
  For Counter = 1 To 5
    Debug.Print Counter;
  Next

  Debug.Print
  Debug.Print "Starting second loop"
  For Counter = 1 to 10
    Debug.Print Counter;
  Next

  Debug.Print
  Debug.Print "Starting third loop"
  For Counter = 100 to 5
    Debug.Print Counter
  Next
End Sub