设为首页
加入收藏
繁體中文
首 页客家风情客家影音山歌在线客家商城聊天室留言墙测字算命下载中心IT 技术客家论坛
您当前的位置:客家网 | 天南地北客家人 -> IT 技术-> ASP -> 正文 退出登录 用户管理
栏目导航
· ASP · JSP
· 网络安全 · NET专区
· XML专区 · PHP专区
热门文章
· ASP+JavaScript的完整的..
· [图文] 防范非法用户的侵..
· ASP从数据库中获取文件..
· 网络管理中的常用命令
· [图文] 千年虫二世诞生业..
· [图文] FSO组件操作实例..
· 网络常见木马的手工清除..
· 利用ASP远程获取内容
· [图文] 简单购物车教程
· 一个ASP(VBScript)简..
· asp常用数据库连接方法..
· 网络常见木马的手工清除..
相关文章
· 一个非常精彩的日历程序..
· 一个个人网页自动化生成..
· 一个个人网页自动化生成..
· [图文] 一个个人网页自动..
· 正则表达式例子:在一个..
· 第三节 定义一个类 [3]
· 创建一个ASP通用分页类(..
· 创建一个ASP通用分页类(..
· 一个拷贝整个文件夹(包括..
· 一个不太让人讨厌的自动..
· 断开的数据库连接的一个..
· 一个防止外部数据提交的..
· 一个取图片尺寸的类,支..
· 一个简单的SQL语句执行器..
· 不用询问关闭一个独立的..
一个求最大值与最小值的函数
作者:yuyu3007  来源:本站原创  发布时间:2007-8-30 13:00:11  发布人:Admin

减小字体 增大字体

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

[] [返回上一页] [打 印] [收 藏]
∷相关文章评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论…]
关于本站 - 网站合作 - 免责声明 - 友情连接 - 网站地图 - 客家论坛
本站部份内容来自网络 如无意中侵犯了您的权利 请及时与我们联系 我们会尽快处理
Copyright © 2006-2008 天南地北客家人
Email:yddlts@126.com  QQ:153161602
站长:大浪淘沙    QQ群:33754730
粤ICP备07019796号