求二维数组排列,下二维的下标,~~~~~~~~~~在线等,急啊!

[davs]

arr(2,3)=12
arr(2,7)=9
arr(2,9)=15
arr(2,10)=10
arr(5,7)=19
arr(7,3)=7
arr(6,9)=17
arr(7,18)=14


我要取出期值最大的前4个的二维下标,怎么取啊,快发疯啦!试了N次都不成!
上面的要的结果是:7,9,18,3
其中有重复只取一个,快来帮想一想啊!谢谢了!

[mayi545]

那10是什么

[davs]

看来今晚没希望啦!!wuwu~~~

[mayi545]

呵呵.帮不上忙了

[街头小贩]

数学没学好!帮你UP吧!没睡的有的是呀!

[kkkbs]

可惜这个不是立体几何...我只懂几何

[超级大笨狼]

sub sortA( _sortArr)
'堆排序，复杂度n*log(n)/log(2),如果8个数就是24次，如果用冒泡是8^2=64次
dim n,i,L,ir,r_sortArr,j
n = ubound(_sortArr)
L = int(n / 2)+1
ir = n
do
if L > 1 then
L = L - 1
r_sortArr = _sortArr(L)
else
r_sortArr = _sortArr(ir)
_sortArr(ir) = _sortArr(1)
ir = ir - 1
if ir = 1 then
_sortArr(1) = r_sortArr
exit sub
end if
end if
i = L
j = 2 * L
while j <= ir
if j < ir then
if _sortArr(j) < _sortArr(j + 1) then j = j + 1
end if
if r_sortArr < _sortArr(j) then
_sortArr(i) = _sortArr(j)
i = j
j = 2 * j
else
j = ir + 1
end if
wend
_sortArr(i) = r_sortArr
loop
end sub

[超级大笨狼]

<SCRIPT LANGUAGE=vbscript >

sub append( ByRef arr(),newItem)
'用于添加数组最新内容的过程
dim maxBound
maxBound = ubound(arr)
redim Preserve arr( maxBound + 1)
arr(maxBound + 1) = newItem
end sub

sub remove( ByRef arr(),oldItem)
'用于移出数组旧内容的过程
dim maxBound,old,tempArr(),i
maxBound = ubound(arr)
exits = false
for each old in arr
if old = oldItem then maxBound = maxBound -1
next

'如果不存在那么
if maxBound = ubound(arr) then exit sub

redim tempArr(maxBound)
i = 0
for each old in arr
if old <> oldItem then
tempArr(i) = old
i = i + 1
end if
next
redim arr( maxBound )
for i = 0 to maxBound
arr(i) = tempArr(i)
next
end sub

sub sort(byref arr())
'冒泡排序
dim loop1
dim loop2
dim temp
for loop1 = ubound(arr) to 0 step -1
for loop2 = 1 to loop1
if arr(loop2 - 1) > arr(loop2) then
temp = arr(loop2 - 1)
arr(loop2 - 1) = arr(loop2)
arr(loop2) = temp
end if
next
next
end sub

'下面是用来测试执行前后结果变化的

aa = array("GG兔","MM兔","BT兔")

document.write "显示原始数组" & "<br/>"
show aa
document.write "添加一条并显示" & "<br/>"
append aa, "羊皮兔"
show aa
document.write "添加一条并显示" & "<br/>"
append aa,"狼皮兔"
show aa
document.write "排序并显示" & "<br/>"
sort aa
show aa
document.write "删除一条并显示" & "<br/>"
remove aa,"狼皮兔"
show aa

sub show(arr)
'显示数组的全部内容
for each a in arr
document.write a & "<br/>"
next
document.write a & "<hr/>"
end sub

</SCRIPT>

[超级大笨狼]

以上代码供参考，自己考虑，应该可以找到答案。

[超级大笨狼]

http://superdullwolf.cnzone.net/index.asp

下载代码合集，关于数组应用的例子很多。
另外js数组对象本身就有sort方法。
.net的Arraylist

[超级大笨狼]

最近比较忙，在工作中学习.NET,但是我还会常来论坛尽一下版主的职责，这里好多问题都可以在我的代码集里面找到，比查找FAQ方便，希望大家以后把自己收藏的代码发到我信箱，我整理后给大家下载。http://superdullwolf.cnzone.net/index.asp
[e-mail]

[davs]

还有人在吗
不会全都休息了吧

[richwong]

你的等级比我高，不敢回答 ^_^

[davs]

在这里不是等级的问题,而是思想的问题啊,能想得出来就是好事啦

[mayi545]

没听懂是什么意思????????

[davs]

上面的数组中对应的值由大到小排序:19,17,15,14,12
它对应的二维下标就是:7,9,9,18,3
去掉重复的9,就是结果了:7,9,18,3