asp如何从一组数据中获得最大的数值
我找了好久但怎么都不行不知道怎么回事,找出来的最大值老是错的str=",158,6,90,150,170,240,135"functionminmax(strarr,ou...
我找了好久 但怎么都不行 不知道怎么回事,找出来的最大值老是错的
str = ",158,6,90,150,170,240,135"
function minmax(strarr,outtype)
dim strsplit,tempmin,tempmax,i
strsplit = split(str,",")
tempmin = strsplit(0)
tempmax = strsplit(0)
for i=0 to ubound(strsplit)
if strsplit(i)<tempmin then tempmin=strsplit(i)
if strsplit(i)>tempmax then tempmax=strsplit(i)
next
if outtype=1 then
minmax=tempmax
else
minmax=tempmin
end if
end function
response.write "最小:" & minmax(str,0) & "<br>"
response.write "最大:" & minmax(str,1) 展开
str = ",158,6,90,150,170,240,135"
function minmax(strarr,outtype)
dim strsplit,tempmin,tempmax,i
strsplit = split(str,",")
tempmin = strsplit(0)
tempmax = strsplit(0)
for i=0 to ubound(strsplit)
if strsplit(i)<tempmin then tempmin=strsplit(i)
if strsplit(i)>tempmax then tempmax=strsplit(i)
next
if outtype=1 then
minmax=tempmax
else
minmax=tempmin
end if
end function
response.write "最小:" & minmax(str,0) & "<br>"
response.write "最大:" & minmax(str,1) 展开
1个回答
展开全部
之所以出错是因为你的 split返回的是一个variant的数组,而不是你需要的数值型的,所以需要用cint转换,要改动的话有两处,一是str=那一行改为
str = "158,6,90,150,170,240,135"
然后在 strsplit = split(str,",")下面加入
for i=0 to ubound(strsplit)
strsplit(i)=cint(strsplit(i))
next
如果不改的话,你原本的程序中的variant类型在asp中比较似乎是依据字符类型来比较的,也就是说最大值应该是90,最小的应该是最前面那个空白
str = "158,6,90,150,170,240,135"
然后在 strsplit = split(str,",")下面加入
for i=0 to ubound(strsplit)
strsplit(i)=cint(strsplit(i))
next
如果不改的话,你原本的程序中的variant类型在asp中比较似乎是依据字符类型来比较的,也就是说最大值应该是90,最小的应该是最前面那个空白
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询