VB.Net 代码无法正常工作出现错误

Question

有人可以请教，我收到以下 vb.net 代码的编译错误。
VS 突出了一些错误。

索引数小于索引数组的维数。

'Integer()' 类型的值不能转换为 'Integer( , )'，因为数组类型具有不同的维数。

 Public Sub Int_SplitEvenOdd_2D_Array(ByRef rawArray(,) As Integer, ByRef evenArray(,) As Integer, ByRef oddArray(,) As Integer) Dim firstUpperBound As Integer = rawArray.Length Dim secondUpperBound As Integer = rawArray(0).Length Dim rows As Integer = 3 Dim columns As Integer = 2 evenArray = New Integer((rows) - 1) {} oddArray = New Integer((rows) - 1) {} Dim i As Integer = 0 Do While (i <= columns) evenArray(i) = New Integer((columns) - 1) {} oddArray(i) = New Integer((columns) - 1) {} i = (i + 1) Loop Dim value As Integer = 0 Dim EvenIndex As Integer = 0 Dim EvenIndex2 As Integer = 0 Dim OddIndex As Integer = 0 Dim OddIndex2 As Integer = 0 Do While (i < firstUpperBound) Dim j As Integer = 0 Do While (j < secondUpperBound) value = rawArray(i)(j) If ((value Mod 2) = 0) Then evenArray(EvenIndex)(EvenIndex2) = (value + 2000) EvenIndex2 = (EvenIndex2 + 1) If (EvenIndex2 = columns) Then EvenIndex2 = 0 EvenIndex = (EvenIndex + 1) End If Else oddArray(OddIndex)(OddIndex2) = (value + 3000) OddIndex2 = (OddIndex2 + 1) If (OddIndex2 = columns) Then OddIndex2 = 0 OddIndex = (OddIndex + 1) End If End If j = (j + 1) Loop i = (i + 1) Loop End Sub

Answer 1

您的子程序声明将 evenArray 和oddArray 声明为二维数组 (,) - 但是，当您对它们调用 New 时，您将它们重新定义为一维数组 () - 然后再进一步将它们视为锯齿状数组。 假设您希望它们是多维数组，则在调用 New 时需要给它们两个数组边界，并始终使用两个索引 (x,y) 来引用它们。

evenArray = New Integer(rows - 1, columns -1) {}
oddArray = New Integer(rows - 1, columns -1) {}

https://msdn.microsoft.com/en-us/library/d2de1t93(v=vs.90).aspx

正确的声明将消除对以下内容的需要，这是您将它们视为锯齿状数组的地方：

Do While (i <= columns) 'Also note: This should be the number of rows, not columns if you want to use jagged arrays.
    evenArray(i) = New Integer((columns) - 1) {}
    oddArray(i) = New Integer((columns) - 1) {}
    i = (i + 1)
Loop

上面实际上是将它们分配为 Jagged 数组，它们类似于多维数组但不相同（一个类似于 Grid，另一个类似于条形图，可以为您提供可视化表示）如果 Jagged 数组是您想要的它们通常有更多的声明：

evenArray = New Integer(rows -1)()

并像这样访问：

evenArray(row)(column) = value

区别很简单，多维数组实际上是一个网格，所有行都具有相同的列数。 在锯齿状数组中，您的所有行都可能有不同数量的列，并且每一行都需要您调用 New 或为其分配一个单维数组（这就是您的 for 循环正在执行的操作）

https://msdn.microsoft.com/en-us/library/hkhhsz9t(v=vs.90).aspx

希望有帮助。 :)