作业帮 > 综合 > 作业

用VB函数 计算一维数组所有元素的平均值.要求,子函数实现求平均值,主函数实现数据输入及平均值输出

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 14:40:12
用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
再问: 可以给我完整版本吗 我是初学者