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 回答