用VB函数 计算一维数组所有元素的平均值 要求 子函数实现求平均值 主函数实现数据输入及平均值输出（vb录入数据如何自动向下填充公式）

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