作者：未知 来源：月光软件站 加入时间：2005-2-28　月光软件站

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

相关软件：