clng(max) then max=clng(arr(i)) end if next end function function min(info) arr=split(info,",") min=clng(arr(0)) for i=1 to ubound(arr) if clng(a" /> 
快捷搜索:

写了一个求最大值与最小值的函数

function max(info)

arr=split(info,",")

max=clng(arr(0))

for i=1 to ubound(arr)

if clng(arr(i))>clng(max) then

max=clng(arr(i))

end if

next

end function

function min(info)

arr=split(info,",")

min=clng(arr(0))

for i=1 to ubound(arr)

if clng(arr(i))min=clng(arr(i))

end if

next

end function

'调用要领

'i=max("12,23,12,12,,32,43,54,43,56")

'i=min("12,12,23,3,454,34,4,5,45,3,232,3,2,43,4")

您可能还会对下面的文章感兴趣: