code142b.txt

VB大全（精华版）源代码

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