数组中有5个元素，依次是6,4,9,7，2
VF中有没有一个函数可以实现让这个数组元素的名次显示出来
如果没有的话应该怎么实现啊

[此贴子已经被作者于2017-10-28 08:25编辑过]

CLOSE all
PUBLIC array a1(5)
a1(1)=6
a1(2)=4
a1(3)=9
a1(4)=7
a1(5)=2
Asort(a1)
?a1(1),a1(2),a1(3),a1(4),a1(5)

运行结果：2,4,6,7,9
不知楼主是不是这意思。

我希望可以把他们的名次显示出来，比如2最小名次是5这个意思

CLOSE all
PUBLIC array a1(5,2),a2(5)
a1(1,1)=6
a1(2,1)=4
a1(3,1)=9
a1(4,1)=7
a1(5,1)=2
for i=1 to 5
a2(i)=a1(i,1)
a1(i,2)=0
ENDFOR
Asort(a2,1,5,1)
FOR i=1 TO 5
FOR j=1 TO 5
IF a1(i,1)=a2(j)
a1(i,2)=j
ENDIF
ENDFOR
ENDFOR
?a1(1,1),a1(2,1),a1(3,1),a1(4,1),a1(5,1)
?a1(1,2),a1(2,2),a1(3,2),a1(4,2),a1(5,2)

运行结果：
6,4,9,7,2
3,2,5,4,1

此方法有点笨，大概达到你的要求了。

运行结果：
6,4,9,7,2
3,4,1,2,5

CLEAR
? "  数组:","6,4,9,7,2"
ALINES(arr, "6,4,9,7,2",",")
ASORT(arr, 1, 5, 1)
? "   数        名次"
FOR i=1 TO ALEN(arr)
    ? "  ", arr[i], i
ENDFOR

clear
local a[5],c[5,2]
a[1]=6
a[2]=4
a[3]=9
a[4]=7
a[5]=2
=acopy(a,b)

if asort(a,1,-1,1)=1
    for i=1 to alen(b,1)
        if ascan(a,b[i])>0
            c[i,1]=ascan(a,b[i]) &&名次
            c[i,2]=b[i]          &&原值
        endif
    endfor
endif
list memory like c