VFP程序中急需实现10个数的排序（从小到大）！

在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个数按大小排序怎么用VFP编程

*以下程序调试通过， 不止可以处理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

endfor