Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Vytvorte ArrayList a zadajte niektoré hodnoty . V nasledujúcom príklade pole celočíselných hodnôt je kódovaná do aplikácie : 
 
 Dim zoznam As New ArrayListlist.Add ( 1 ) list.Add ( 2 ) list.Add ( 2 ) list.Add ( 3 ) 
 2 
 Vytvorte počiatočné slučku . Táto slučka prechádza každým číslom v zozname . To zahŕňa druhú slučku , ktorá porovnáva každú hodnotu pre všetky ostatné čísla v poli . Nasledujúci kód ukazuje , ako vytvoriť počiatočné slučky : 
 
 i As Integer = 0 To list.Count - 1Dim hodnota = zoznam ( i ) Loop 
 3 
 nastaviť druhú slučku . Druhá slučka má hodnotu v prvom cykle , a porovnáva ju so všetky ostatné hodnoty v ArrayList . Ak je nájdený duplicitné , správa je odoslaná užívateľovi . Nasledujúci vám ukáže , ako nájsť žiadne duplicitné : 
 
 For i As Integer = 0 To list.Count - 1Dim hodnota = zoznam ( i ) pre j As Integer = 0 To list.Count - 1Pokud hodnota = zoznam ( j ) ThenResponse.Write ( " Duplicate existuje " ) End IfLoopLoop