Function之求最大和最小

<%@Language="VBScript"%>
<%
Function Max(MyArray,TopNum)
    Dim Max__i, Max__n
    If TopNum = 1 Then
        Max__n = MyArray(0)
        For Max__i = 1 To UBound(MyArray)
            If Max__n < MyArray(Max__i) Then Max__n = MyArray(Max__i)
        Next
    ElseIf TopNum < UBound(MyArray) Then
        Max__n = Min(MyArray,1)   '取得最小值
        For Max__i = 0 To UBound(MyArray)
            If (Max__n < MyArray(Max__i)) And (Max(MyArray,TopNum-1) > MyArray(Max__i)) Then Max__n = MyArray(Max__i)
        Next
    Else
        Max__n = Min(MyArray,1)   '排名数溢出取最小值
    End If
    Max = Max__n
End Function

Function Min(MyArray,TopNum)
    Dim Min__i, Min__n
    If TopNum = 1 Then
        Min__n = MyArray(0)
        For Min__i = 1 To UBound(MyArray)
            If Min__n > MyArray(Min__i) Then Min__n = MyArray(Min__i)
        Next
        Min = Min__n
    ElseIf TopNum < UBound(MyArray) Then
        Min__n = Min(MyArray,1)   '取得最大值
        For Min__i = 0 To UBound(MyArray)
            If (Min__n > MyArray(Min__i)) And (Min(MyArray,TopNum-1) < MyArray(Min__i)) Then Min__n = MyArray(Min__i)
        Next
    Else
        Min__n = Min(MyArray,1)   '排名数溢出取最大值
    End If
    Min = Min__n
End Function


Dim xx(5)
xx(0) = 1
xx(1) = 6
xx(2) = 3
xx(3) = 2
xx(4) = 8
xx(5) = 5
Response.Write "老大:" & Max(xx,1) & "<br>"
Response.Write "老二:" & Max(xx,2) & "<br>"
Response.Write "老三:" & Max(xx,3) & "<br>"
%>
注意：定义的数组不能有相同的数字（一次只生一个哈，没有双胞胎）