code142b.txt

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

Private Function Change_First(ByRef First As Integer, ByVal Second _
    As Integer) As Integer
  First = Second                  ' Assign value of second to first
  Change_First = First + Second
  Second = 100
End Function