收藏 分站 简化版 股指 预订
日历 地图 计算器 行情 电脑
影视 携程 导购 WAP 排行
首页 软件 源码 网络 窍门 笑话 知识 公告
全部 综合数码金融娱乐服务报刊政府机构 推荐 申请 友情  
您现在的位置:首页 >> ASP >> 内容

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

内容摘要: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(......

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

  版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


发布日期:2013-03-11 发布时间:20:53:31 点击:4049 录入:齐天大圣
  • 上一篇:将阿拉伯数字日期转换为中文数字日期格式
  • 下一篇:ASP中CINT和INT的区别
  • 本类新增
    本类热门文章
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2017

    最佳1024*768浏览
    闽ICP备05000814号-1
    YJCMS V1.7 Build 17.1.25

    本免费空间由景安网络(yjyy)提供