配列の引数は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 

私がメインとそれが正常に動作しますが、私は文字列を渡すことができないというロジックを見ることができないCalculateScoresのパラメータのバリアント配列に患者を変更した場合。デフォルトではByRefなので、私は何かが欠けていることを知っています。

私は変種を使用することはできますが、それはハッキリと感じます。

Answer 1

あなたはこれを行うとき：

DoSomething (expression) 

あなたはexpressionを強制しているが、値としてを評価され、関係なく、パラメータが明示的にそれが BYREF渡されたと言うかどうかのByVal、を渡されます。ほとんどの場合、それはほとんど影響を与えませんが、配列やオブジェクト参照を渡そうとすると、後端に噛み付きます。

括弧を削除します。今

DoSomething expression 

---

、あなたのコードを持つ他の問題があります：あなたはStringパラメータに文字列の配列を渡しています。それはうまくいかない。パラメータを配列またはVariantにしてください。明確にするため、パラメータを明示的にByRefとマークすることをお勧めします。