查人人中国名人网中国第一台类人机器人:3个数按大小排序,怎么用VFP编程？
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 05:41:34
*以下程序调试通过, 不止可以处理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)<pData(j-1)
iTemp = pData[j-1]
pData(j-1) = pData[j]
pData(j) = iTemp
endif
endfor
endfor