Dim Speed(0 to Irgendwas as long)
dim I as long 'Keine Ahnung WIEVIEL das mal werden sollen ;-)
dim Höchste as integer
 
'Zufallszahlen
for I = 0 to ubound(speed)
  speed(i)=Int((30 + 1) * Rnd)
next i
 
for I = 0 to ubound(speed)
   if speed(i) > höchste then höchste = speed(i)  
next I