未公开的返回数组型函数加速秘诀

'返回一个数组，其中含有N个随即元素

'并且将平均值保存在AVG中

FunctionGetRandomArray(ByValnAsLong,avgAsSingle)AsSingle()

DimiAsLong,sumAsSingle

ReDimres(1Ton)AsSingle

'以随机数填充数组，并计算总和

RandomizeTimer

Fori=1Ton

res(i)=Rnd

sum=sum res(i)

Next

'赋值结果数组，计算平均值

GetRandomArray=res

avg=sum/n

EndFunction

难以置信的是，只需要简单地颠倒最后2条语句的顺序，就能使上面这段程序变得快些：

'...'赋值结果数组，计算平均值

avg=sum/n

GetRandomArray=res

EndFunction

例如，在一个PentiumII333MHz机器上，当N＝100,000时，前段程序运行时间为0.72秒，后段程序则为0.66秒，前后相差10。

原因何在呢？前段程序中，VB将拷贝res数组到GetRandomArray对应的结果中，当数组很大时，花费的时间是很长的。后段程序中，由于GetRandomArray=res是过程的最后一条语句，VB编译器就能确认res数组不会被再使用，因此将直接交换res和GetRandomArray的地址数值，从而节省了数组元素的物理拷贝操作以及随后的res数组释放操作。

总结如下：当编写返回数组的函数时，一定要将分配临时数组到函数名的语句放在最后，就是其后紧挨者ExitFunction或者EndFunction的位置。