VB 常考算法(七)数组元素之插入删除:
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
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
For i = 0 To 10
Print a(i);
Next i
End Sub
2)删除
代码如下:
Private Sub Command1_Click()
Dim a() As Integer
---
ReDim a(1 To N)
---