从2D数组返回单数列？

Question

我想做一个脚本，从2维数组返回一个单数列，这将用作数据在Rhino中绘制各种事物。但是，我试图这样做时总会遇到错误，而且我似乎无法弄清楚我的代码出了什么问题。我现在的功能转载如下：

Function ReturnColumn(ByVal col, ByVal array) 

Dim colsize, i 
colsize = UBound(array, 1) 

ReDim vector(colsize) 

For i = 0 To colsize 
    vector(i) = array(i, col) 
Next 

ReturnColumn = vector 
End Function 

这应该是一个非常简单的功能，但由于某种原因，我不能得到它的工作。任何帮助表示赞赏，谢谢！

Answer 1

我相信你需要在重新定义它之前用Dim声明你的数组变量。此外，作为变量名的array可能会导致问题，因为它是保留关键字。使用例如matrix：

Function ReturnColumn(ByVal col, ByVal matrix) 
    ' Declare variables 
    Dim colsize As Integer 
    Dim i As Integer 
    Dim vector() As Integer 

    ' Redimension the array to the size of the column 
    colsize = UBound(matrix, 1) 
    ReDim vector(colsize) 

    ' Fill the array 
    For i = 0 To colsize 
    vector(i) = matrix(i, col) 
    Next 

    ' Return the array 
    ReturnColumn = vector 
End Function 

的documentation说（重点煤矿）：

的ReDim语句用来大小还是调整动态数组已经正式使用声明一个Private，Public，或Dim带空括号的语句（不带维度下标）。