code141a.txt

VB大全（精华版）源代码

Private Function Display_And_Change(First As Integer, Second As _
    Integer, Third As Integer) As Integer

  Debug.Print "Original function values:", First, Second, Third
  First = First + 100 
  Second = Second + 100
  Third = Third + 100
  Debug.Print "Ending function values ", First, Second, Third

  Display_And_Change = First + Second + Third
End Function

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

  A = 1
  B = 2
  C = 3

  Debug.Print "Function Returns: ", Display_And_Change(A, B, C)
  Debug.Print "Intermed. values in main: ", A, B, C

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