神马品牌网hpv人乳瘤头病毒报告:求asp多维数组排序代码
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 03:39:14
比如arry(3,10)，分别为(string011,string012,4),(string021,string022,9)……(string101,string102,3)。并且arry(3,i)有相等的，现在要按照arry(3,i)排序。请高手指教。
假设数组为arry(4,max),函数如下，调用方式为：
dim max
max=ubound(arry,2)
arry(4,max)=sort(arry,max)
Function Sort(ary,x)
Dim KeepChecking,I
redim FirstValue(4,1),SecondValue(4,1)
KeepChecking = TRUE
Do Until KeepChecking = FALSE
KeepChecking = FALSE
For I = 1 to x
If I = x Then Exit For
If ary(4,I) > ary(4,I+1) Then
for k=1 to 4
FirstValue(k,1) = ary(k,I)
next
for k=1 to 4
SecondValue(k,1) = ary(k,I+1)
next
for k=1 to 4
ary(k,I) = SecondValue(k,1)
next
for k=1 to 4
ary(k,I+1) = FirstValue(k,1)
next
KeepChecking = TRUE
End If
Next
Loop
Sort = ary(4,x)
End Function