'返回一个数组，其中含有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条语句的顺序，就能使上面这段程序变得快些：
'...'赋值结果数组，计算平均值
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）avg=sum/n
GetRandomArray=res
EndFunction
例如，在一个PentiumII333MHz机器上，当N＝100,000时，前段程序运行时间为0.72秒，后段程序则为0.66秒，前后相差10。
（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）原因何在呢？前段程序中，VB将拷贝res数组到GetRandomArray对应的结果中，当数组很大时，花费的时间是很长的。后段程序中，由于GetRandomArray=res是过程的最后一条语句，VB编译器就能确认res数组不会被再使用，因此将直接交换res和GetRandomArray的地址数值，从而节省了数组元素的物理拷贝操作以及随后的res数组释放操作。
总结如下：当编写返回数组的函数时，一定要将分配临时数组到函数名的语句放在最后，就是其后紧挨者ExitFunction或者EndFunction的位置。
->
