数值的最大值和最小值

😆

ASP求一个数组中数字或数值的最大值和最小值，自定义函数如下：

<%

function max(x)

dim arr,i

arr=split(x,",") '拆分数组

max=cdbl(arr(0)) 'cdbl函数：转换为双精度浮点型

for i=1 to ubound(arr)

if cdbl(arr(i))>max then max=cdbl(arr(i))

next

end function

function min(x)

dim arr,i

arr=split(x,",")

min=cdbl(arr(0))

for i=1 to ubound(arr)

if cdbl(arr(i))<min then min=cdbl(arr(i))

next

end function

'调用方式

dim arr : arr="15,2,433,10000,8888"

response.Write("<p>数组为：" & arr & "</p>")

response.Write("<p>数组中的最大值为：" & max(arr) & "</p>")

response.Write("<p>数组中的最小值为：" & min(arr) & "</p>")

%>