欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2023-01-30 23:48:43
function max(info) arr=split(info,",") max=clng(arr(0)) for i=1 to ubound(arr) if clng(arr...
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")