| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1053 人关注过本帖
标题:求助,程序问题 怎么可以实现大神们
只看楼主 加入收藏
在路上666666
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2017-10-24
结帖率:71.43%
收藏
 问题点数:0 回复次数:6 
求助,程序问题 怎么可以实现大神们
数组中有5个元素,依次是6,4,9,7,2
VF中有没有一个函数可以实现让这个数组元素的名次显示出来
如果没有的话应该怎么实现啊


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

搜索更多相关主题的帖子: 数组 元素 依次 函数 显示 
2017-10-27 17:36
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:232
专家分:240
注 册:2016-2-14
收藏
得分:0 
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
不知楼主是不是这意思。
2017-10-28 10:11
在路上666666
Rank: 1
等 级:新手上路
帖 子:49
专家分:0
注 册:2017-10-24
收藏
得分:0 
回复 2楼 pjtyzyq
我希望可以把他们的名次显示出来,比如2最小名次是5这个意思
2017-10-28 10:12
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:232
专家分:240
注 册:2016-2-14
收藏
得分:0 
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

此方法有点笨,大概达到你的要求了。
2017-10-28 10:51
pjtyzyq
Rank: 4
等 级:业余侠客
威 望:6
帖 子:232
专家分:240
注 册:2016-2-14
收藏
得分:0 
回复 4楼 pjtyzyq
运行结果:
6,4,9,7,2
3,4,1,2,5
2017-10-28 10:52
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10527
专家分:42899
注 册:2014-5-20
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册

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
2017-10-28 11:21
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9783
专家分:26837
注 册:2012-2-5
收藏
得分:0 
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

坚守VFP最后的阵地
2017-10-28 11:48
快速回复:求助,程序问题 怎么可以实现大神们
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018257 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved