打印本文 打印本文  关闭窗口 关闭窗口  
函数名巧做局部变量
作者:佚名  文章来源:不详  点击数  更新时间:2008/5/9 19:02:27  文章录入:杜斌  责任编辑:杜斌

  很多程序员都没有认识到“在函数本身中使用函数名”的妙处,这就象对待一个局部变量一样。应用这个技巧可以起到临时变量的作用,有时还能加速程序运行。看看下面的代码:

  Function Max(arr() As Long) As Long

  Dim res As Long, i As Long

  res = arr(LBound(arr))

  For i = LBound(arr) + 1 To UBound(arr)

  If arr(i) > res Then res = arr(i)

  Next

  Max = res

  End Function

  去掉res变量,使用函数名称本身这个局部变量,可以使程序更加简练:

  Function Max(arr() As Long) As Long

  Dim i As Long

  Max = arr(LBound(arr))

  For i = LBound(arr) + 1 To UBound(arr)

  If arr(i) > Max Then Max = arr(i)

  Next

  End Function

打印本文 打印本文  关闭窗口 关闭窗口