主题：[求助]求变动成本和固定成本

Dim x As List(Of String) = DataTables("表A").GetValues("销量", Tables("表A").filter)
Dim y As List(Of String) = DataTables("表A").GetValues("费用", Tables("表A").filter)

Dim avg1 As Double
Dim avg2 As Double
For i As Integer = 0 To x.count - 1
    avg1 += x(i) / x.count
    avg2 += y(i) / y.count
Next
Dim sum1 As Double
Dim sum2 As Double
For i As Integer = 0 To x.count - 1
    sum1 += (x(i)-avg1)*(y(i)-avg2)
    sum2 += (x(i)-avg1)*(x(i)-avg1)
Next
msgbox(sum1 / sum2)