求数列各项中的最大值或最小值的程序

ysr

Private Function max(ByVal lists As String) As String
'取最大值的程序
Dim temp As String
Dim a() As String
a = Split(lists, "/")
Dim B As Long
temp = a(0)
For B = 0 To UBound(a)
If qdfh(temp) < qdfh(a(B)) Then temp = a(B)
Next
max = temp
End Function

Private Function min(ByVal lists As String) As String
'取最小值的程序
Dim temp As String
Dim a() As String
a = Split(lists, "/")
Dim B As Long
temp = a(0)
For B = 0 To UBound(a)
If qdfh(temp) > qdfh(a(B)) Then temp = a(B)
Next
min = temp
End Function

ysr

Private Function max(ByVal lists As String) As String '输出绝对值最大值
Dim temp As String
Dim a() As String
a = Split(lists, "/")
Dim b As Long
temp = a(0)
For b = 0 To UBound(a)
If Abs(temp) < Abs(a(b)) Then temp = a(b)
Next
max = temp
End Function

Private Function mix(ByVal lists As String) As String '输出绝对值最小值
Dim temp As String
Dim a() As String
a = Split(lists, "/")
Dim b As Long
temp = a(0)
For b = 0 To UBound(a)
If Abs(temp) > Abs(a(b)) Then temp = a(b)
Next
mix = temp
End Function