数值的最大值和最小值
有關本新聞標籤
数值的最大值和最小值


信件已寄出,盡快回覆您!

公開


数值的最大值和最小值

簡介:数值的最大值和最小值

標籤:数值的最大值和最小值
時間:2017/8/9 上午 07:35:25
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>")
%>
----------数值的最大值和最小值 其他相關新聞