请教一下，关于VFP实现并归排序算法的问题。

[fojiao8745]

RT，想请教一下关于VFP实现并归排序算法的问题。
根据在百度找到的提示，我自己写了一个并归排序的实现Demo。
但是在与BubbleSort比较的时候发现，MergeSort花费的时间几乎是BubbleSort的2.5倍。
但是从理论上来说MergeSort的效率应该是远超BubbleSort的。
以下贴上代码与截图，还请版主大大们与各路大神不吝赐教，再次谢过各位了。

LOCAL lnTemp,lnArrlen,lcarrNo,lcBubbletime,lcMergetime
lnArrlen = 5000
CLEAR
**Get Array
DIMENSION arr(lnArrlen)
FOR i = 1 TO lnArrlen
	arr(i) = ROUND(rand()*lnArrlen*10,0)
ENDFOR
ACOPY(arr,originalArr)

**Bubble Sort
T1 = SECONDS()
FOR i = 1 TO lnArrlen
	FOR j = i + 1 TO lnArrlen
		IF arr(i) > arr(j)
			lnTemp = arr(i)
			arr(i) = arr(j) 
			arr(j) = lnTemp
		ENDIF
	ENDFOR
ENDFOR
T2 = SECONDS()
lcBubbletime = 'BubbleSort用时: '+ALLTRIM(STR(T2-T1,10,3))+'秒'

**Recovery
ACOPY(originalArr,arr)

**Merge Sort
T1 = SECONDS()
FOR i = 1 TO lnArrlen
	lcarrNo = ALLTRIM(STR(i))
	DIMENSION arr&lcarrNo(1)
	arr&lcarrNo(1) = arr(i)
ENDFOR
DIMENSION arrNow(lnArrlen)
arrNow(1) = arr1(1)
FOR i = 1 TO lnArrlen - 1
	lcarrNo = ALLTRIM(STR(i))
	isAdd = .F.
	FOR j = 1 TO i
		IF arrNow(j) > arr&lcarrNo(1)
			AINS(arrNow,j)
			arrNow(j) = arr&lcarrNo(1)
			j = i + 1
			isAdd = .T.
		ENDIF
	ENDFOR
	IF !isAdd
		AINS(arrNow,j)
		arrNow(j) = arr&lcarrNo(1)
	ENDIF
ENDFOR
T2 = SECONDS()
lcMergetime = 'MergeSort用时: '+ALLTRIM(STR(T2-T1,10,3))+'秒'

**Result
MESSAGEBOX('共'+ALLTRIM(STR(lnArrlen))+'个数'+ CHR(13) +lcBubbletime + CHR(13) + lcMergetime,48,'Tip')

[liups]

此问题转战这边了！ 问楼主一个问题，两个算法为何风格如此不一样？一个有宏一个没有，这还能比么？

[fojiao8745]

引用 1 楼 liups 的回复:

此问题转战这边了！ 问楼主一个问题，两个算法为何风格如此不一样？一个有宏一个没有，这还能比么？

肯定不一样啊，本质上的区别，理论上说并归的效率应该是冒泡的上万倍

[liups]

就问一下楼主学过数据结构没有？ 时间复杂度的计算，主要是考虑药费时间多的操作，而宏的花费时间应该是非常多，所以在追求效率的程序中不应该使用宏操作！如果非常在意效率，应该使用非VFP语言（因为VFP本身就是低速的）甚至是汇编！