code156a.txt

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

Private Sub NoChange(ByVal Param As Integer)
  Param = SqrFunc(Param)
  Debug.Print "Parameter from Within the Sub:", Param
End Sub

Private Function SqrFunc(ByVal Value_To_Square As Integer) _
    As Integer
  SqrFunc = Value_To_Square * Value_To_Square
End Function

Public Sub Main()
  Dim A As Integer

  A = 10
  Debug.Print "A Before the Sub Call:", A
  NoChange A
  Debug.Print "A After the Sub Call:", A
End Sub