获取一组数据的最大值asp

 需要获取一组数据的最大值,需要自己写个函数,代码如下:

lie_max = lie_son&","&lie_borther&","&lie_father

lie_max   = Split(lie_max,",") 

lie_max2  = max(lie_max)

 
 
 
 
 
'冒泡排序如下:
Function Max(Arr)
 If not IsArray(Arr) then Exit Function '如果非数组则跳出
 dim Bound,isOk,i,t
 Bound = UBound(Arr)  '数组最大角标
 isOk = False   '标记是否有排序变化
 Do while Bound > 0 and not isOk
  isOk = True '如果比较后没有发生排序变化,说明排序已经正确,isOk值为True,直接跳出循环
  For i = 0 to Bound - 1 '相邻两元素比较,小的往后排
   If Arr(i) < Arr(i + 1) then
    t = Arr(i)
    Arr(i) = Arr(i + 1)
    Arr(i+1) = t
    isOk = False
   End If 
  Next
  Bound = Bound - 1 '循环一轮后,最小的排到最右了,再比较左(Bound-1)个元素,陆续把最小的排到最右
 Loop
 '得到Arr数组是由大到小排序
 Max = Arr(0) '这里可以返回最大最小的都可以
End Function
'如果只要最大的,可以一次循环,只把最大冒泡出来
 
 
以上是asp  VB脚本

评论

发表新评论

此内容将保密,不会被其他人看见。
点击刷新验证码
  • 可用的 UBB 标签:
  • 留言最长字数:1000。