八十年代交流网

v 您现在的位置：八十年代交流网 ->>《代码区》版　　　文字大小：[大][中][默认]

[返回]

v 第1/1页

跳至

页

[刷新]

主题:

[顶楼] vfp代码0

作者:★冰峰★(xzwn82)发表于2003-12-26 8:44:54

*运动员成绩排名
clear
use 4-6.dbf
list off
n=reccount()
dimension a(n,2)
copy to array a(n,2) fields 运动员号码,成绩
for i=1 to n-1
for j=i to n
if a(i,2)>a(j,2)
t=a(i,2)
k=a(i,1)
a(i,2)=a(j,2)
a(i,1)=a(j,1)
a(j,2)=t
a(j,1)=k
endif
endfor
endfor
@2,40 say "运动员号码"
@2,80 say "成绩"
for i=1 to n
@2+i,41 say a(i,1)
@2+i,80 say str(a(i,2),4,1)
endfor
use
[img]http://www.our80s.com/bbs/photo/2004211205422.gif[/img]

[留言] [回复]

------------------------------
★冰峰★ 写