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

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

Function GetRandomArray(ByVal n As Long, avg As Single) As Single()

Dim i As Long, sum As Single

ReDim res(1 To n) As Single

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

Randomize Timer

For i = 1 To n

res(i) = Rnd

sum = sum res(i)

Next

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

GetRandomArray = res

avg = sum / n

End Function

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

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

avg = sum / n

GetRandomArray = res

End Function

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

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

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