删除数组元素？来溜达一下吧白拿分的

Question

Dim aLines() As String我读取里文本文件
之后每行一个元素放入数组中
之后我想我删除数组中的第10条，13条就是想删除数组元素怎么删除啊？网上说：“
Dim a() as integer 
…. 
ReDim a(1 to n) 
… 
For i=k+1 to n 
a(i-1)=a(i) 
Next I 
Redim preserve a(1 to n-1) 
中间省略的部分看不懂啊···谁帮帮忙啊

Answer 1

同意，另建立一个数组，循环把需要的赋值给新数组即可。使用redim太麻烦

Answer 2

你都省略了，那我们更看不懂了．他这代码应该就是把要删除部分数据后的元素都前移，覆盖掉要删除的元素，然后再用Redim preserve校正一下新的元素个数吧

Answer 3

Private Sub Command1_Click()
    Dim i As Long
    Dim arr()
    arr = Array("ww", "cc", "ff", "tt", "ssss")
    Call DeleteElement(arr, 3)   '删除第3个元素"ff"'    For i = 0 To UBound(arr)
'        Debug.Print arr(i) '测试(显示新数组成员)
'    Next
End SubPrivate Sub DeleteElement(vArr(), ByVal k As Integer)
    Dim arrS()
    Dim a()
    Dim n As Integer, i As Long
    
    arrS = vArr
    n = UBound(arrS)
    
    ReDim Preserve arrS(k - 1)
    a = arrS '取(0 to k-1)的数组元素
    
    ReDim Preserve a(n - 1) '定义新数组上界
        
    For i = k To n
        a(i - 1) = vArr(i)
    Next
    vArr = a
End Sub