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

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

本文地址：http://com.8s8s.com/it/it8781.htm