code83a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim Counter As Integer

  Counter = 1                 ' Initialize the control variable
  Do While Counter <= 100     ' Test the control variable
    Debug.Print Counter       ' Execute the statements
    Counter = Counter + 1     ' Modify the control variable
  Loop                        ' Iterate
End Sub