当前位置:首页>维修大全>综合>

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

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

更新时间:2024-03-24 15:24:49

用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

更多栏目