VB常用算法（七）数组元素插入删除

1.算法描述

数组中元素的插入和删除一般是以固定的顺序插入或删除数组中的一个元素，使插入或删除操作后的数组仍然有序。

基本思路:首先找到插入位置或者要删除的元素。

1)插入

代码如下:

私有子命令1_Click()

Dim a(10)为整数

Dim i为整数，k为整数

For i = 0到9 '生成数组

a(i) = i * 3 + 1

打印a(I)；

接下来我

打印

打印“插入14”

对于k = 0到9 '，找到插入14在数组中的位置。

如果14 < a(k ),则退出

下一个k

For i = 9 To k Step -1 '从最后一个元素开始一个接一个地向后移动以腾出空间。

[br/]a(I+1)= a(I)

接下来我

a(k) = 14 '插入数字14

对于i = 0到10

打印a(I)；

接下来我

打印

结束Sub

1 4 7 10 13 16 19 22 25 28

K