code84a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim Counter As Integer

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