VFP程序中急需实现10个数的排序(从小到大)!
在VFP程序中输入10个数从小到大排序急!CLEARSETUDFPARMSTOREFERENCE&地址传递DIMEAAA(10)FORi=1TO10?"请输入第",STR(i,2),"个数"input"输入"toAAA(i)NEXT=MySort(AAA,10)&调用冒泡排序函数.i=1dowhilei

在VFP程序中输入10个数从小到大排序急!
CLEAR
SET UDFPARMS TO REFERENCE &地址传递
DIME AAA(10)
FOR i= 1 TO 10
? "请输入第",STR(i,2),"个数"
input "输入" to AAA(i)
NEXT
=MySort(AAA,10) &调用冒泡排序函数.
i=1
do while i<=10
??AAA(i) &显示排完序后的数据.
i=i+1
enddo
RETURN
*冒泡排序函数.
*参数: pData: 传入数组, nCount:数组的大小.
function MySort
para pData, nCount
for i=1 to nCount
for j=nCount to i+1 step -1
if pData(j) iTemp = pData[j-1] pData(j-1) = pData[j] pData(j) = iTemp endif endfor endfor endfunc *以下程序调试通过, 不止可以处理3个数, 可以处理任意多个数. SET UDFPARMS TO REFERENCE &值传递 DIME AAA(3) AAA(1) = 23 AAA(2) = 3 AAA(3) = 43 =MySort(aaa,3) &调用冒泡排序函数. i=1 do while i<=3 ?aaa(i) &显示排完序后的数据. i=i+1 enddo RETURN *冒泡排序函数. *参数: pData: 传入数组, nCount:数组的大小. function MySort para pData, nCount for i=1 to nCount for j=nCount to i+1 step -1 *?j,i if pData(j) iTemp = pData[j-1] pData(j-1) = pData[j] pData(j) = iTemp endif endfor endfor3个数按大小排序怎么用VFP编程


































