code146a.txt

VB大全（精华版）源代码

Private Sub Output_Count(ByVal UpperLimit As Integer)
  Static LowerLimit As Integer

  Do While LowerLimit < UpperLimit
    Debug.Print LowerLimit
    LowerLimit = LowerLimit + 1
  Loop
End Sub

Public Sub Main()
  Output_Count 10
  Output_Count 15
  Output_Count 10
End Sub