Function Average(mySinge() As Single) As Single
Dim sn As Single
Dim cn As Integer, i As Integer
cn = UBound(mySinge) - LBound(mySinge) + 1
For i = LBound(mySinge) To UBound(mySinge)
sn = sn + mySinge(i)
Next i
Average = sn / cn
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024