｛求助｝在ASP中如何对产生的50个随机数排序？？｛求助｝

[风云化龙]

在ASP中如何对产生的50个随机数排序？？

像下面产生了50个随机数：
randomize
dim w(50)
for i=1 to 50
w(i)=rnd()
response.write w(i)
next

但输出的结果很乱，如何对这50个随机数进行排序？（使它按从大到小或从小到大的顺序输出）

谢谢了？？

对了，这50个随机数在有些时候会不会出来相同的？

[aking8736]

排序
for i=0 to ubound(w)
for j=ubound(w)-1 to i -1
if(w(j)>w(j-1)) then
str=w(j)
w(j)=w(j-1)
w(j-1)=str
end if
next
next

[aspgreener]

Function SortArray(ByRef arr)
Dim tmp,i,j

For i = 0 to Ubound(arr)
For j=i to Ubound(arr)
If (arr(i)<arr(j)) Then
tmp = arr(i)
arr(i) = arr(j)
arr(j)= tmp
End If
Next
Next

SortArray = arr
End Function

[aspgreener]

只要你传递一个数组进去就可以倒叙排列了。

[aspgreener]

完整的例子如下：
<%
Function SortArray(ByRef arr)
Dim tmp,i,j

For i = 0 to Ubound(arr)
For j=i to Ubound(arr)
If (arr(i)<arr(j)) Then
tmp = arr(i)
arr(i) = arr(j)
arr(j)= tmp
End If
Next
Next

SortArray = arr
End Function

Dim arr
arr = "1,5,8,2,9,4,7,6"
arr = Split(arr,",")
Response.Write("<br>Sort Before:")
For i= 0 to Ubound(arr)
Response.Write(arr(i)&",")
Next

arr = SortArrayarr)

Response.Write("<br>Sort After:")
For i= 0 to Ubound(arr)
Response.Write(arr(i)&",")
Next
%>

[FIREGUNS]

楼上的，循环多了点吧..

[aspgreener]

呵呵！冒泡排序就是这样的啊！

[超级大笨狼]

<SCRIPT LANGUAGE=vbscript >
'洗牌
Dim N,S,D,P
P=54'牌的数量
Set D = CreateObject("Scripting.Dictionary")
do while D.Count<P
Randomize
N=Int(P * Rnd + 1)
if not D.Exists(cstr(N)) then
D.Add cstr(N),cstr(N)
end if
loop
for each K in D.Keys
S=S & K & " "
next
msgbox replace(trim(S)," ",",")
</SCRIPT>

access
select top 5 * from [table] order by rnd(id)

sql server
select top 5 * from [table] order by newid()

[pzhuyy]

冒泡法
lz不会这都不知道吧.