Dim i as Integer
Dim max as integer 
max = -32767
Dim min As Integer 
min = 32767
Dim count As Integer = List1.Count
Dim summe As Integer
 
For i = 1 to count
  if Val(List1(i)) > max then max = Val(List1(i))
  if Val(List1(i)) < min then min = Val(List1(i))
  sum = sum + Val(List1(i))
Next
 
Dim durchschnitt as Double = sum / count

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008