VB假定数组a的值利用Array()函数赋给,分别为{1,6,8,3,5,9,10,2,7,4},删除Key值为10的元素

代码如下。
----------------------------
Dim a
Private Sub Command1_Click()
l = LBound(a)
u = UBound(a)
For i = l To u
If a(i) = 10 Then
For j = i To u - 1
a(j) = a(j + 1)
Next
End If
Next
End Sub

Private Sub Form_Load()
a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)
End Sub