尼尔怎么开始二周目:在foxpro中将10个数字排序。

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/09 11:46:09
数组a(10):
a(1)=142
a(2)=120
a(3)=452
a(4)=23
a(5)=89
a(6)=42
a(7)=865
a(8)=140
a(9)=453
a(10)=147
请编程将这10个数字排序。

哎,没有人回答,我来吧
以下是按升序:
clear
dimension a(10)
a(1)=142
a(2)=120
a(3)=452
a(4)=23
a(5)=89
a(6)=42
a(7)=865
a(8)=140
a(9)=453
a(10)=147
for bb=9 to 1 step -1
for aa=1 to bb
xxx=a(aa)
if a(aa)>a(aa+1)
a(aa)=a(aa+1)
a(aa+1)=xxx
endif
endfor
endfor