code153a.txt

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

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