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

问题描述:

用VB函数 计算一维数组所有元素的平均值.要求,子函数实现求平均值,主函数实现数据输入及平均值输出
2个回答 分类:综合 2014-10-08

问题解答:

我来补答
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
再问: 可以给我完整版本吗 我是初学者
 
 
展开全文阅读

补充回答:

ppppppp
网友(42.61.188.*) 2014-10-08

剩余:2000
上一页:必修3第一单元
下一页:第4课时