VB常用算法(七)数组元素插入删除

2026-03-23
1、算法说明

数组中元素的插入和删除一般是在已固定序列的数组中插入或删除一个元素,使得插入或删除操作后的数组还是有序的。


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


1) 插入


代码如下:


Private Sub Command1_Click()


Dim a(10) As Integer


Dim i As Integer, k As Integer


For i = 0 To 9 '生成数组


a(i) = i * 3 + 1


Print a(i);


Next i


Print


Print "插入14"


For k = 0 To 9 '查找插入14在数组中的位置


If 14 < a(k) Then Exit For


Next k


For i = 9 To k Step -1 '从最后元素开始逐个后移,腾出位置


a(i + 1) = a(i)


Next i


a(k) = 14 '插入数14


For i = 0 To 10


Print a(i);


Next i


Print


End Sub


2) 1 4 7 10 13 16 19 22 25 28

K