“编制通用函数过程，计算Double 类型一维数组所有元素的平均值"怎样用V

Question

“编制通用函数过程，计算Double 类型一维数组所有元素的平均值"怎样用VB编程啊

Answer 1

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