vb 数组，怎么直接清除数组中的元素

Question

比如我这有一组2500个元素的数组，要清除元素位置为5的倍数的元素，让他变为2000个数组的新数组

Answer 1

思路：个人认为，VB里没有特别好的办法，不如直接定义一个大小为2000的数组，用个循环把2500这个数组的数抄过去，抄的过程中，能被5整除的就跳过。例子：

 Dim arr,brr(5) As Integer  '定义一个长为5的数组，把长为10的数组内奇数抄过来
 Dim i, j As Integer
 j = 0
 arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
 For i = 0 To 9
    If Not arr(i) Mod 2 = 0 Then  '偶数的，不要
        brr(j) = arr(i)
        j = j + 1
    End If
Next i
For i = 0 To 4   '输出结果
Print brr(i)
Next i

Answer 2

假设你的数组是数组a
那定义一个新的数组b大小为2000;
for(int i＝0,w＝0;i＜2500;i＋＋)
{
if((i＋1)％5＝＝0)
continue;
b[w]＝a[i];
w＋＋;
}