[vb.net] Durchschnitt, Summe, Maximum, Minimum einer Arraylist

Gepostet am: May 10, 2011 3:50:33 PM

SummeArraylist

Public Function SummeArraylist(ByVal myArraylist As ArrayList) As Double         Dim tmpvar As Double = 0         For Each elem As Double In myArraylist             tmpvar = tmpvar + elem         Next         Return tmpvar End Function

DurchschnittArraylist

Public Function DurchschnittArraylist(ByVal myArraylist As ArrayList) As Double         Return SummeArraylist(myArraylist) / myArraylist.Count End Function

Maximum und Minimum einer Arraylist

Public Function minArraylist(ByVal myArrayList As ArrayList) As Double         myArrayList.Sort()         Return myArrayList(0)End FunctionPublic Function maxArraylist(ByVal myArrayList As ArrayList) As Double         myArrayList.Sort()         myArrayList.Reverse()         Return myArrayList(0)End Function