主题：平均值

一个行中有10个数据，我想计算这10个数据的平均值，应该如何编写代码。

分别取出，然后计算

 

Dim cs() As String = {"第一列", "第二列"}
dim sum as double = 0
for each c as string in cs
    sum += val(tables("表A").Current(c))
Next
msgbox(sum)
msgbox(sum/cs.length)

运行后显示这样的错误提示：Exception has been thrown by the target of an invocation.

说明你此表一行数据都没有。代码没问题的。