code166a.txt

VB大全（精华版）源代码

Private Function Add_Em(ParamArray Values()) As Integer
  Dim Counter As Integer

  Add_Em = 0
  For Counter = 0 To UBound(Values)
    Add_Em = Add_Em + Values(Counter)
  Next
End Function

Public Sub Main()
 Debug.Print "Sum of 3 is "; Add_Em(3)
 Debug.Print "Sum of 3 + 5 is "; Add_Em(3, 5)
 Debug.Print "Sum of 3 + 5 + 8 is "; Add_Em(3, 5, 8)
 Debug.Print "Sum of 3 + 5 + 8 + 9 is "; Add_Em(3, 5, 8, 9)
End Sub