懂VFP的高手进

dimension a(10)

for i=1 to 10
input'请输入第【'+alltrim(str(i))+'】个数字：' to a(i)
endfor

for i=1 to 9
for j=9 to i step -1
if a(j)<a(j+1)
k=a(j)
a(j)=a(j+1)
a(j+1)=k
endif
endfor
endfor

for i=1 to 10
?a(i)
endfor