Question

VB数组元素的删除

用Array()给出数组a=array(1,2,3,4,5,6,7,8,9,10),现在把key值为10的元素删除，怎么写代码？
按给的题目写代码，不要动态数组

Answer 1

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Dim a As Variant
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For i = 0 To UBound(a)
Text1.Text = Text1.Text & a(i) & " "
Next i
For i = 0 To UBound(a)

If a(i) = 10 Then
For j = i To UBound(a) - 1
a(j) = a(j + 1)
Next j
a(j) = a(i)
Exit For
End If
Next i
ReDim Preserve a(UBound(a) - 1)
For i = 0 To UBound(a)
Text2.Text = Text2.Text & a(i) & " "
Next i
End Sub

Answer 2

定义一个可变数组，用redim 重新定义大小，比数组a少一个元素，把a里的数据除10以外的数据复制过去