code153a.txt

VB大全（精华版）源代码

Public I As Integer

Private Function ReturnI(ByVal IntVar As Integer) As Integer
  I = I + IntVar
  ReturnI = I
End Function

Public Sub Main()
  For I = 1 To 10
    Debug.Print I, ReturnI(I)
  Next
End Sub