code154a.txt

VB大全（精华版）源代码

Private Function Add_Em(A, B, C) As Integer
  A = A + 100
  B = B + 100
  C = C + 100
  Add_Em = A + B + C
End Function

Public Sub Main()
  Dim Val1%, Val2%, Val3 As Integer

  Val1 = 1
  Val2 = 2
  Val3 = 3
  Debug.Print Val1 + Val2 + Val3 + Val3 * Add_Em(Val1, Val2, Val3)
End Sub