﹚ま计计
Function Sum(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f) '羆㎝
Sum = a+b+c+d+e+f
End Function
Function Avg(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f) 'キА
Avg=(a+b+c+d+e+f)/6
End Function
Function Max(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f) '程
If a > Max Then Max=a
If b > Max Then Max=b
If c > Max Then Max=c
If d > Max Then Max=d
If e > Max Then Max=e
If f > Max Then Max=f
End Function
Function Min(ByVal a, ByVal b, ByVal c, ByVal d, ByVal e, ByVal f) '程
Min = 100000
If a < Min Then Min=a
If b < Min Then Min=b
If c < Min Then Min=c
If d < Min Then Min=d
If e < Min Then Min=e
If f < Min Then Min=f
End Function
﹚ま计计(ま计Optional ByVal _ as Integer =0)
Function Sum(Optional ByVal a As Integer = 0,Optional ByVal b As Integer = 0, Optional ByVal c As Integer = 0, Optional ByVal d As Integer = 0, Optional ByVal e As Integer = 0, Optional ByVal f As Integer = 0) '羆㎝
Sum = a+b+c+d+e+f
End Function
Function Avg(Optional ByVal a As Integer = 0,Optional ByVal b As Integer = 0, Optional ByVal c As Integer = 0, Optional ByVal d As Integer = 0, Optional ByVal e As Integer = 0, Optional ByVal f As Integer = 0) 'キА
Avg=(a+b+c+d+e+f)/6
End Function
Function Max(Optional ByVal a As Integer = 0,Optional ByVal b As Integer = 0, Optional ByVal c As Integer = 0, Optional ByVal d As Integer = 0, Optional ByVal e As Integer = 0, Optional ByVal f As Integer = 0) '程
If a > Max Then Max=a
If b > Max Then Max=b
If c > Max Then Max=c
If d > Max Then Max=d
If e > Max Then Max=e
If f > Max Then Max=f
End Function
Function Min(Optional ByVal a As Integer = 0,Optional ByVal b As Integer = 0, Optional ByVal c As Integer = 0, Optional ByVal d As Integer = 0, Optional ByVal e As Integer = 0, Optional ByVal f As Integer = 0) '程
Min = 100000
If a < Min Then Min=a
If b < Min Then Min=b
If c < Min Then Min=c
If d < Min Then Min=d
If e < Min Then Min=e
If f < Min Then Min=f
End Function
ぃま计计(跑计┪盽计)
Function Num(ParamArray n()) '戈计
Dim i
For Each i In n
Num = Num + 1
Next i
End Function
Function Sum(ParamArray n()) '羆㎝
Dim i
For Each i In n
Sum = Sum + i
Next i
End Function
Function Avg(ParamArray n()) 'キА
Dim i, Num, Sum
For Each i In n
Num = Num + 1
Sum = Sum + i
Next i
Avg = Sum / Num
End Function
Function Max(ParamArray n()) '程
Dim i, Num
For Each i In n
If i > Max Then Max = i
Next i
End Function
Function Min(ParamArray n()) '程
Dim i, Num
Min = 100000
For Each i In n
If i < Min Then Min = i
Next i
End Function
ぃま计计(惠皚㊣)
Function Num(ByVal
n() As
Integer)
'戈计
Dim i
For Each
i In n
Num = Num + 1
Next i
End
Function
Function Sum(ByVal
n() As
Integer)
'羆㎝
Dim i
For Each
i In n
Sum = Sum + i
Next i
End
Function
Function Avg(ByVal
n() As
Integer)
'キА
Dim i, Num, Sum
For Each
i In n
Num = Num + 1
Sum = Sum + i
Next i
Avg = Sum / Num
End
Function
Function Max(ByVal
n() As
Integer)
'程
Dim i,
Num
For Each
i In n
If i > Max
Then Max = i
Next i
End
Function
Function Min(ByVal
n() As
Integer)
'程
Dim i, Num
Min = 100000
For Each
i In n
If i < Min
Then Min = i
Next i
End
Function