十数字由大到小排列vfp程序设计

******定义10个随机两位数**************
dimension arr(10)
FOR i = 1 to 10
arr(i)=int(100*random())+1
endfor

*********排序*************
for i = 1 to 9
for j = 1 to 9
if arr(j)<arr(j+1)
x=arr(j) &&本行及下面两行,互换两个数
arr(j)=arr(j+1)
arr(j+1)=x
endif
endfor
endfor

**********显示***********
display memory like arr

上面的比较复杂,还有个更简单的:

******定义10个随机两位数**************
dimension arr(10)
FOR i = 1 to 10
arr(i)=int(100*random())+1
endfor

*********排序*************
asort(arr,1,alen(arr),1)

**********显示***********
display memory like arr