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")