---

Hvordan laver jeg en meget enkel sorterings algorithm, den skal helst fylde
meget lidt og skal sortere tal!

---

Nedenstående "bubble-sort" er et bud på en simpel sorteringsalgoritme.
Tallene lægges i arrayet Tal().

Sub Sorter()
'leo.heuser@get2net.dk, december 2000
Dim Tal() As Variant
Dim AntalTal As Long
Dim Counter As Long
Dim Counter1 As Long
Dim Dummy As Variant

AntalTal = 100
ReDim Tal(AntalTal)

Randomize
For Counter = LBound(Tal) To UBound(Tal)
Tal(Counter) = Int(1000 * Rnd)
Next Counter

For Counter = LBound(Tal) To UBound(Tal) - 1
For Counter1 = Counter + 1 To UBound(Tal)
If Tal(Counter) > Tal(Counter1) Then
Dummy = Tal(Counter1)
Tal(Counter1) = Tal(Counter)
Tal(Counter) = Dummy
End If
Next Counter1
Next Counter
End Sub

Med venlig hilsen
LeoH

"Elmefaard" <elmefaard@hotmail.com> skrev i en meddelelse
news:92dbg2$2dk8$1@news.cybercity.dk...
> Hvordan laver jeg en meget enkel sorterings algorithm, den skal helst
fylde
> meget lidt og skal sortere tal!
>
>
>