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编程
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















