Office中国论坛/Access中国论坛

标题: 怎样求数组平均值？ [打印本页]

作者: jakyky 时间: 2012-1-31 10:49
标题: 怎样求数组平均值？
小弟有一个一位数组，想求平均值。

在excel中这样写就可以了WorksheetFunction.Average(arr())，但是在access里面应该怎么写呢？
请教各位大神，谢谢了。

作者: roych 时间: 2012-1-31 12:07
如果引用Excel库，也可以这样写啊~~呵呵。否则建议用变量来累计再求平均值：

Sub test()
Dim arr()
ReDim arr(2)
arr(0) = 1
arr(1) = 2
arr(2) = 6
For i = 0 To UBound(arr)
j = j + arr(i)
Next
Debug.Print j / (UBound(arr) + 1)
End Sub

复制代码

作者: jakyky 时间: 2012-1-31 12:19

roych 发表于 2012-1-31 12:07
如果引用Excel库，也可以这样写啊~~呵呵。否则建议用变量来累计再求平均值：

谢谢roych。
但是两种方法哪个更快一点呢？

作者: roych 时间: 2012-1-31 18:41
没测试过，数据较多时你可以试试。不过，如果可以通过记录集来处理，那应该是最快的。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)