如何解答从键盘任意输入10个数并按降序排列
foxpro吧
全部回复
仅看楼主
level 1
w123546 楼主
如何解答从键盘任意输入10个数并按降序排列 用vfp程序编写 啊``
2007年01月05日 07点01分 1
level 0
LOCAL i,ji=0input '输入参与排序个数[排序个数不能为0]: ' to iDIMENSION xx(i)j=1DO WHILE j<=i input '第'+ALLTRIM(STR(j,3,0))+'个排序数: 'to xx(j) j=j+1ENDdoASORT(xx,1,I,1)j=1DO WHILE j<=i IF j=1 ? xx(J) ELSE ?? ','+ALLTRIM(STR(xx(J),3,0)) endif j=j+1ENDdo试试看?邮箱:[email protected]
2007年01月06日 11点01分 2
1