VB编程：数组中删除数组元素-27_彭世瑜_新浪博客

运行效果：

\

程序代码：

Dim a()

Private Sub Form_Load()

    ReDim Preserve a(1 To 5)

    For i = 1 To 5

        a(i) = i

    Next i

    For i = 1 To 5

        Text1.Text = Text1.Text & "a(" & i & ")=" & a(i) & ";   "

    Next i

    For i = 2 To 4

        a(i) = a(i + 1)

    Next i

    ReDim Preserve a(1 To 4)

    For i = 1 To 4

        Text2.Text = Text2.Text & "a(" & i & ")=" & a(i) & ";   "

    Next i

End Sub

\

总结：

    1、插入数组元素和删除数组元素都使用循环交换，插入数组元素是原数组元素往后移动，删除数组元素是将原数组的元素往前移动。

    2、插入数组元素，需要先将数组长度加长再增加数组元素；删除数组元素，可以先删除数组元素，再建数组长度缩短。

\