Foxpro 6.0编程（江湖救急）

来源：百度知道 编辑：UC知道 时间：2024/09/24 22:20:45
要求使用者输入N个要排序的数，然后依次输入，最后输出从小到大排列的数。
举例：

请输入要输入数字的个数：N

请输入第一个数字：55

请输入第二个数字：21

请输入第三个数字：1

请输入第四个数字：44

请输入第N个数字：29

您所输入数字的顺序是：55，21，1，44，29

排序之后数字的顺序是：1，21，29，44，55

这是执行程序后的画面。还需要告诉我每一句的意思，用的什么命令，这一句执行哪一步等等，望高手不吝赐教。在这里先行谢过了！

SET talk off
Clear
***输入的数放在ArrayOne(5)数组,排好的放orderarray(5)数组
DIMENSION ArrayOne(5) ,orderarray(5)
FOR n=1 to 5
INPUT "请输入本金额：" to ArrayOne(n)
ENDF

FOR J=1 to 5
orderarray(J)=1/0
FOR i=1 to 5
IF orderarray(J)>=ArrayOne(i)
orderarray(J)=ArrayOne(i)
smallno=i
ENDIF
ENDF
ArrayOne(smallno)=1/0
ENDF

?"排序是: "
FOR i=1 to 5
? orderarray(i)
ENDF
SET talk on

***试过的, ok了