VB编程语言能将一个数组从中间扣除一段以后把数组剩下的调用成一个新的数组么？

VB编程语言能将一个数组从中间扣除一段以后把数组剩下的调用成一个新的数组么？这个是通过函数的方式调用实现么？

直接循环复制就可以了，重新定义一个数组，跳过中间的

    Dim a()     As Long
    Dim i       As Long

    ReDim a(1 To 5)
    For i = 1 To 5
        a(i) = i
    Next

    '扣除 2,3 后面前移'
    For i = 4 To 5
        a(i - 2) = a(i)
    Next
    ReDim Preserve a(1 To 3)

经过测试，对于大数组，我采用的是写入临时文件的方法，将原数组写入二进制文件，然后计算好需要切分的块的起点终点，redim 新数组，打开临时二进制文件，根据数组数据类型计算出读取位置 Seek #fp,读取起点，用新数组读取文件， get #fp,,NewArr() ，这样就能快速截取原数组中的某一块。此方法我一应用于一个50几Mb 的整型 PCM 数据数组截取上，效率不错。