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

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