code74a.txt

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

Public Sub Main()
  Dim Counter As Integer

  Debug.Print
  Debug.Print "Starting first loop"
  For Counter = -100 To 100 Step 5
     Debug.Print Counter;
  Next
   
  Debug.Print
  Debug.Print "Starting second loop"
  For Counter = -100 To 100 Step 25
    Debug.Print Counter;
  Next
End Sub