code146a.txt

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

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