需要获取一组数据的最大值，需要自己写个函数，代码如下：
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脚本
最新评论