关于排序问题，跪求各位！

[Bettyh]

有一组数字如 8，9，7，8我现在要想得到名次2，1，3，2 怎么实现？

[whycom]

array sort

[wdgphc]

Dim aa As int() = {8，9，7，8}
Dim bb As int()

Array.Sort(aa, bb)

bb中就是{ 2,1,3,2} .手边没环境,你自己试试.

[Bettyh]

array sort 能得到9，8，8，7 这个结果，我要的是数组的中数字的位置和名次对应起来，我要得到的是2，1，3，2这个结果，不知道我表达清楚了没有

[Bettyh]

2楼的，谢谢你，我试过好像不行啊

[Bettyh]

有没有高手知道阿，谢谢各位了

[xiaomi7732]

LZ试试：
Dim original As Integer() = {8, 9, 7, 8}
Dim hash As New Hashtable()

Dim temp As Integer() = {0, 0, 0, 0}
Array.Copy(original, temp, original.Length)

Array.Sort(temp)
Array.Reverse(temp)

Dim order As Integer = 1
For Each i In temp
If hash(i) Is Nothing Then
hash.Add(i, order)
order += 1
End If
Next

For Each i In original
Console.Write("{0},", hash(i))
Next

Console.WriteLine()

[Bettyh]

楼上 console.write输出的内容哪里可以看到阿？

[铭鑫0813]

console.write只有在consoleApplication中才可见，你用MSGBOX显示好了。。。

[xiaomi7732]

创建一个Windows Console Application，或者，干脆把数组返回出去。

[Bettyh]

谢谢xiaomi7732 接分吧