VB“超频”秘籍之给字符串提速

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

上一篇： Visual Basic编程访问WMI对象
下一篇： 用VB6建立带光栅的超级开始菜单

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!