VB函数错误信息

Question

所以我想创建一个函数来计算解决问题的“成本”。

我创建了一个包含整数值的一维数组 Sum(m)。这在不同的子过程中被引用。

Function Cost(sum As Integer, a As Integer) As Long

Dim total As Long

'Calculate cost
For m = 1 To 2 * n + 2
    total = total + (sum(m) - a) ^ 2
Next m
Cost = total

End Function

我不确定我应该在该行的括号部分使用什么

Function Cost(sum As Integer, a As Integer) As Long

当我尝试在我的子过程中调用该函数时，我收到错误消息 - 编译错误：预期数组。这发生在

行

SolCost = Cost(sum, UBound(x))

我真的很困惑为什么会发生这个错误。这可能是由于严重缺乏 VB 经验。希望大家能帮帮我。

如果您需要更多信息，请随时提出。非常感谢任何帮助。

Answer 1

你不能UBound 这样的多维数组。您必须UBound 数组的一个特定维度。因此，如果X(i,j) 是您的数组，您必须使用UBound(X,1) 来表示第一个维度，或者使用UBound(X,2) 来表示第二个维度。这可以扩展到您拥有的任何维度。看看at w3schools，他们的文章涵盖了多维数组。