有个“示例”想供你参考，没法上传……

以下链接可供参考：
[url=http://bbs.bccn.net/viewthread.php?tid=223692&page=1#pid1331741]点击链接
[/url]

clear
dime s(3)
for j=1 to 3
input "输入第"+str(j,1)+"个数:" to s(j)
endfor
for n=2 to 1 step -1
for i=1 to n
if s(i)>s(i+1)
s(i)=s(i)+s(i+1)
s(i+1)=s(i)-s(i+1)
s(i)=s(i)-s(i+1)
endif
endfor
endfor
?"对输入的数从大到小排列为:"
for i=3 to 1 step -1 
?s(i)
endfor

clear
dime s(3)
for j=1 to 3
input "输入第"+str(j,1)+"个数:" to s(j)
endfor
for n=2 to 1 step -1
for i=1 to n
if s(i)>s(i+1)
s(i)=s(i)+s(i+1)
s(i+1)=s(i)-s(i+1)
s(i)=s(i)-s(i+1)
endif
endfor
endfor
?"对输入的数从大到小排列为:"
for i=3 to 1 step -1 
?s(i)
endfor