首页 > 站长学院 > ASP专区 > 一个求最大值与最小值的函数
 

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

日期:2005-03-29 00:00:00  来源:本站原创
请您记住思索网的网址: http://www.4so.net  [加入收藏夹]

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

 
 
热门信息
 
相关文章
 
    无相关信息