code73a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim Counter As Integer

  Debug.Print
  Debug.Print "Starting first loop"
  For Counter = 5 To 1 Step -1
    Debug.Print Counter;
  Next
 
  Debug.Print
  Debug.Print "Starting second loop"
  For Counter = 10 To 1 Step -1
    Debug.Print Counter;
  Next

  Debug.Print
  Debug.Print "Starting third loop"
  For Counter = 0 To 1 Step -1
    Debug.Print Counter
  Next
End Sub