编一对已知数组a(),删除数组中某个元素的程序.答:Private Sub Command1_Click()Dim a As Variant a = Array(1, 6, 8, 3, 5, 9, 10, 2, 7, 4)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...