arrays - 数组参数必须是 ByRef

Question

我在这里做错了什么？

Sub Main()

Dim patients() As String

' Some code to populate the patients array, works fine

CalculateScores (patients) ' Array argument must be ByRef compile error

End Sub



Sub CalculateScores(patients As String)

End Sub

如果我将患者更改为 Main 中的变量数组和CalculateScores 的参数，它可以正常工作，但我看不到无法传递字符串的逻辑。默认情况下它是 ByRef 所以我知道我错过了一些东西。

我当然可以使用变体，但感觉很hacky。

Answer 1

当你这样做时:

DoSomething (expression)

您强制将表达式作为值进行计算，并传递ByVal，无论参数是否明确表示它已通过 ByRef。虽然这在大多数情况下或多或少没有影响，但当您尝试传递数组或对象引用时，它会在后端咬您。

去掉括号。

DoSomething expression

---

现在，您的代码还存在其他问题:您将字符串数组传递给 String 参数；那行不通。将参数设置为数组或 Variant，为了清楚起见，我建议将参数显式标记为 ByRef。