' ZVI:2009-10-19 Recursive average of array
Function AvgRecursive(Arr) 'As Long
  Dim x, i&, ret#
  If Not IsArray(Arr) Then AvgRecursive = Arr: Exit Function
  For Each x In Arr
    i = i +  1 
    ret = (i -  1 ) / i * ret + x / i
  Next
  AvgRecursive = ret
End Function

Sub Test()
  Const N =  10 
  Dim Arr()
  ReDim Arr( 1  To N)
  For i =  1  To N
    Arr(i) = i
  Next
  Debug.Print "Expected = 5.5", "AvgRecursive = " & AvgRecursive(Arr)
End Sub