---

<%
'Opret et array med forskellige værdier
Dim MyArray
MyArray = Array("test9","test4","ole","hans",123,100,22,3)

'Kald sort funktion
MyArray = Sort(MyArray)

'Udskriv dit sorteret array
For I = 0 to Ubound(MyArray)
Response.Write MyArray(I) & "<br>" & vbCRLF
Next
Response.End


'Sorterings rutine

Function Sort(arr)
running = TRUE

Do Until running = FALSE

running = FALSE

For I = 0 to UBound(arr)
If I = UBound(arr) Then Exit For
If arr(I) > arr(I+1) Then
value1 = arr(I)
value2 = arr(I+1)
arr(I) = value2
arr(I+1) = value1
running = TRUE
End If
Next

Loop

Sort = arr

End Function
%>

---

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.