You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
643 B
Plaintext
22 lines
643 B
Plaintext
5 years ago
|
<%
|
||
|
Private Function SelectionSort(ByVal unsortedarray)
|
||
|
Dim Front, Back, I, Loc, Selcom
|
||
|
Dim Temp, Selswap, Arrsize
|
||
|
Arrsize = UBound(unsortedarray)
|
||
|
For Front = 0 To Arrsize - 1
|
||
|
Loc = Front
|
||
|
For Back = Front To Arrsize
|
||
|
Selcom = Selcom + 1
|
||
|
If unsortedarray(Loc) > _
|
||
|
unsortedarray(Back) Then
|
||
|
Loc = Back
|
||
|
End If
|
||
|
Next
|
||
|
Selswap = Selswap + 1
|
||
|
Temp = unsortedarray(Loc)
|
||
|
unsortedarray(Loc) = unsortedarray(Front)
|
||
|
unsortedarray(Front) = Temp
|
||
|
Next
|
||
|
SelectionSort = unsortedarray
|
||
|
End Function
|
||
|
%>
|