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