Na prikladu funkce Suma si ukazeme definici funkce, ktera ma jako parametr pole cisel.

Public Function suma(pole() As Double) As Double
    ' i - pocitadlo, musi byt Variant kvuli konstrukci
    ' For Each ...
    Dim i As Variant
    ' inicializace promenne
    Suma = 0
    '  do promenne i se postupne prirazuji prvky pole
    For Each i In pole
        Suma = Suma + i
    Next i
End Function

Jeste si spocitame prumer:

Public Function prumer(pole() As Double) As Double
    ' UBound vraci nejvetsi index pole
    ' !pozor! prvni index pole je standardne 0
    prumer = suma(pole) / (UBound(pole) + 1)
End Function

Funkce mame nadefinovane. Jak je zavolat?

Sub Vypocet()
    Dim a(5) As Double
    a(0) = 2
    a(1) = 2
    a(2) = 2
    a(3) = 3
    a(4) = 3
    a(5) = 3
    
    MsgBox "Suma:" & suma(a) & vbCrLf & "Prumer:" & prumer(a)
End Sub

Testovano a odladeno: Visual Basic, Visual Basic for Application

Stepan Bechynsky, http://www.builder.cz/stepan