3

取り組んでいるプログラムに問題があります。私がやろうとしているのは、関数にユーザーからの入力を受け入れさせ、そのデータを小さなテスト目的で配列に格納することです。これは 3 x 3 配列です。格納されているすべての値をエコーアウトすることで、関数内の配列がテストどおりに機能するようにしました。 . ただし、配列を呼び出し元のサブに返そうとすると、不一致エラーが発生します。何が間違っているのかわかりません。

    Sub SubroutineA()
          Dim Array(2,2)

          Array = GetInfo()

    End Sub

    Function GetInfo()
          Dim FunctionArray(2,2)
          {input all data into array}
          GetInfo = FunctionArray()
    End Function

これは私にとって初めてのことなので、私が得ることができるどんな助けも素晴らしいでしょう.

4

1 に答える 1

5

Cheran Shunmugavel は正しい方向を示していますが、彼の説明にはあいまいさが含まれています。明確にするために：

Sub SubroutineA()
      Dim Arr     ' <<<--- do not use parenthesis here and do not use
                  '        the reserved keyword "Array"
      Arr = GetInfo()
End Sub

Function GetInfo()
      Dim FunctionArray(2,2)
      ' {input all data into array}
      GetInfo = FunctionArray     ' <<<--- do not use parenthesis here
End Function
于 2013-03-22T12:33:57.440 に答える