Součet všech hodnot pole
'Parametry FIRST a LAST indikují, kterou část pole zpracovat.
'Pokud nejsou zadány, bere se celé pole.
Function ArraySum(arr As
Variant, Optional First As Variant, _
Optional Last As Variant) As Variant
Dim index As Long
If
IsMissing(First) Then First = LBound(arr)
If IsMissing(Last) Then Last = UBound(arr)
For
index = First To Last
ArraySum = ArraySum + arr(index)
Next
End Function