code139a.txt

VB大全（精华版）源代码

Private Function Display_And_Change(ByVal A As Integer, ByVal B As Integer, ByVal C As Integer) As Integer

  Debug.Print "Original function values:", A, B, C
  A = A + 100 
  B = B + 100
  C = C + 100

  Debug.Print "Ending function values ", A, B, C
  Display_And_Change = A + B + C
End Function

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

  A = 1
  B = 2
  C = 3

  Debug.Print "Function Result: " Display_And_Change(A, B, C)
  Debug.Print "Ending values in main: ", A, B , C
End Sub