我不会做的一道VFP考题，麻烦个位大哥、大姐有会的帮忙给座以下。谢谢！

编写程序aa.prg要求如下
1.程序先要求输入N个要排序的数，然后使用者依次输入N个数，最后输出从小到大排列后的数

请各位高手帮帮忙！
input'请输入要排序数字的个数：' to zshu
dimension a(zshu)
for rr=1 to zshu
input'请输入第['+Str(rr,4)+']个数：' to a(rr)
endfor
for rr=1 to zshu
for ss=zshu to 2 Step -1
tt=a(ss)
if a(ss)<a(ss-1)
a(ss)=a(ss-1)
a(ss-1)=tt
endif
endfor
endfor
?
for rr=1 to zshu
?a(rr)
endfor
不知道这样写对吗？
另外这个编发的思路和分析麻烦各位高手给解释一下？小弟跪谢！

[此贴子已经被作者于2007-6-8 13:15:12编辑过]

呵呵，代码是不会给您的了，但可以给点思路：
1、输入N；
2、以N为元素定义数组；
3、把数组中的数进行比较，并按从小到大排序
当然，你也可以把数组的值导入到表中，然后用SORT命令或INDEX命令进行排序。

感觉好像不应该用VFP来做!
介个好像是计算机等级考试中常用的 冒泡排序问题!

呵呵，当年我们用PZ-80机子的时候是用BASIC来写的。

偷一个懒，前面5行保留并稍微修改保证zshu是一个正整数，a数组每个元素都是数值，后面用asort(a)，就排好序了。

回复：（loveangell）我不会做的一道VFP考题，麻烦个位...

*你的程序有点乱 运行效果也不是很好 我修改了一下 你看下*
clea
acce'请输入要排序数字的个数：' to zshu
dimension a(zshu)
clea
for rr=1 to zshu
input'请输入第['+Str(rr,4)+']个数：' to a(rr)
clea
endfor
for rr=1 to zshu-1
   for i=rr+1 to zshu
   if a(rr)>a(i)
   t=a(rr)
   a(rr)=a(i)
   a(i)=t
   endi
   endf
?a(rr)
endf
?a(zshu)
retu

回复：（loveangell）我不会做的一道VFP考题，麻烦个位...

喜欢编程的兄弟姐妹 加我QQ422723013 交流交流 呵呵