VB 数字大小

Public Function Mxi(XI As String, ZF As String)
Dim f() As String, i, Max, Min, Sum, Avg As Single
f() = Split(Trim(ZF), ",")
If UBound(f) = 0 Then Exit Function
Max = CSng(f(0))
Min = CSng(f(0))
For i = 0 To UBound(f)
Sum = Sum + CSng(f(i))
If CSng(f(i)) > Max Then Max = f(i)
If CSng(f(i)) < Min Then Min = f(i)
Next i
If XI = "max" Then
Mxi = Max
Else
Mxi = Min
End If
End Function

 

使用方法：aa=Mxi("max",text1)  或 aa=Mxi("min",text1)