'Massiiv funktsiooni parameetrina. Nii saab ette anda lahtriploki.
Public Function geomeetriline_keskmine(massiiv)
  Dim korrutis, element
  korrutis = 1
  For Each element In massiiv
    korrutis = korrutis * element
  Next element
  geomeetriline_keskmine = korrutis ^ (1 / massiiv.Count)  
      'elementide arvule vastav juur
End Function