如何從Visual Basic中的數組中刪除每個第5個元素？

Question

我有一個X元素數組，並且我們假設X = 50.

如何刪除數組中的每個第5個元素？

因此，最終的結果應該只有40離開，因爲每個第五元件取出元件的陣列....

Answer 1

下面的代碼未經測試，但它應該是相當接近，之後的代碼已經運行了所有不能被5個元素整除的元素將被包含在數組'strSecond'中。

UPDATE

代碼下面現已測試 -

Dim strFirst(49) As String 
Dim strSecond() As String 
Dim ArrCount As Integer 

ArrCount = 0 

For i = 1 To 50 
    strFirst(i - 1) = i 
Next 

For i = 0 To 49 
If (i + 1) Mod 5 <> 0 Then 
    ReDim Preserve strSecond(ArrCount) 
    strSecond(ArrCount) = strFirst(i) 
    ArrCount = ArrCount + 1 
    End If 
Next 

For i = 0 To UBound(strSecond) 
    Debug.Print strSecond(i) 
Next 

UPDATE II

這將工作多維陣列（僅上限的最後的當您使用Preserve關鍵字時，可以更改多維陣列中的尺寸） -

Dim strFirst(1, 49) As String 
Dim strSecond() As String 
Dim ArrCount As Integer 

ArrCount = 0 

For i = 1 To 50 
    strFirst(0, i - 1) = i 
    strFirst(1, i - 1) = i 
Next 

For i = 0 To 49 
If (i + 1) Mod 5 <> 0 Then 
    ReDim Preserve strSecond(1, ArrCount) 
    'If you have more than two dimensions could write a loop to do this 
    'For j = 0 To UBound(strFirst,1) etc 
    strSecond(0, ArrCount) = strFirst(0, i) 
    strSecond(1, ArrCount) = strFirst(1, i) 
    ArrCount = ArrCount + 1 
    End If 
Next 

For i = 0 To UBound(strSecond, 2) 
    Debug.Print strSecond(0, i) + "-" + strSecond(1, i) 
Next