code142a.txt

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

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
End Function

Public Sub Main() 
  Dim A As Integer, B As Integer, Result As Integer

  A = 0
  B = 5
  Result = 0

  Debug.Print "Value of a, value of b, result", A, B, Result
  Result = Change_First(A, B)
  Debug.Print "Value of a, value of b, result", A, B, Result
End Sub