code84a.txt

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

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