level 1
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分