Question

VB数组中插入和删除一个元素

Private Sub Command1_Click() '插入一个元素，J为要插的值，M为要插入的位置，之后输出新的数组，
j = Val(Text1.Text): n = Val(Text2.Text)
Dim x
Dim ib As Integer, ia As Integer
If n < 1 Or n > UBound(a) + 1 Then
x = MsgBox("输入的n不在范围之内", 5 + 48, "输入n的值")
If x <> 4 Then
End
Else
Text2.Text = ""
Text2.SetFocus
End If
Else
Do While ia < n - 1
a(ia) = b(ib): ia = ia + 1: ib = ib + 1
Loop
b(ib) = j
Do While ia >= n - 1 And ia <= UBound(a)
a(ia) = b(ib + 1): ia = ia + 1: ib = ib + 1
Loop
For ib = 0 To UBound(b)
Picture2.Print b(ib);
Next ib

End If
End Sub

Private Sub Command2_Click() '删除一个元素，之后输出新的数组，
Dim x
Dim ic As Integer, ia As Integer
m = Val(Text3.Text)
If m < 1 Or m > UBound(a) + 1 Then
x = MsgBox("输入的m不在范围之内", 5 + 48, "输入m的值")
If x <> 4 Then
End
Else
Text3.Text = ""
Text3.SetFocus
End If
Else
Do While ia < m - 1
a(ia) = c(ic): ia = ia + 1: ic = ic + 1
Loop
Do While ia >= m - 1 And ia <= UBound(a)
a(ia + 1) = c(ic): ia = ia + 1: ic = ic + 1
Loop
For ic = 0 To UBound(c)
Picture3.Print c(ic);
Next ic
End If
End Sub

a(ia + 1) = c(ic):这一句提示“下限越界”，这个应该怎么修改了，谢谢各位了，

Answer 1

将数据存在一个动态的数组中(dataArr)

dim dataArr()
dim i as long

1.插入(J为要插的值，M为要插入的位置)
ReDim Preserve dataArr(UBound(dataarr)+1) '将数组放大
for i=UBound(dataarr) to m-1 step -1 '从最下面向m-1循环
dataarr(i)=dataarr(i-1)
next i
dataarr(m)=j

2.删除(M为要删除的位置)
for i=m to UBound(dataarr)-1 '从m向ub..-1
dataarr(i)=dataarr(i+1)
next i
ReDim Preserve dataArr(UBound(dataarr)-1)