FunctionMax(arr()AsLong)AsLong
DimresAsLong,iAsLong
res=arr(LBound(arr))
Fori=LBound(arr) 1ToUBound(arr)
Ifarr(i)>resThenres=arr(i)
Next
Max=res
EndFunction
去掉res变量,使用函数名称本身这个局部变量,可以使程序更加简练:
FunctionMax(arr()AsLong)AsLong
DimiAsLong
Max=arr(LBound(arr))
Fori=LBound(arr) 1ToUBound(arr)
Ifarr(i)>MaxThenMax=arr(i)
Next
EndFunction->
文章整理:站长天空 网址:http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




