怎样求数组平均值？

jakyky

小弟有一个一位数组，想求平均值。

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

roych

如果引用Excel库，也可以这样写啊~~呵呵。否则建议用变量来累计再求平均值：

1. Sub test()
   
2. Dim arr()
   
3. ReDim arr(2)
   
4. arr(0) = 1
   
5. arr(1) = 2
   
6. arr(2) = 6
   
7. For i = 0 To UBound(arr)
   
8.     j = j + arr(i)
   
9.     Next
   
10. Debug.Print j / (UBound(arr) + 1)
    
11. End Sub

复制代码

jakyky

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

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

roych

没测试过，数据较多时你可以试试。不过，如果可以通过记录集来处理，那应该是最快的。