Language Basics VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Language Basics
  4. Pass array parameter to a function
Function Avge(ParamArray aValues() As Variant) As Double
    Dim varValue As Variant
    Dim dblTotal As Double
    For Each varValue In aValues
        dblTotal = dblTotal + varValue
    Next
    Avge = dblTotal / (UBound(aValues) + 1)
End Function