下面程序对已知数组a(),删除数组中某个数组元素。在空白处填入合适的语句,使程序完整。 Dim i, j, Key As Integer Dim a() As Integer = {1, 6, 8, 3, 5, 9, 10, 2, 7, 4} Key = Val(InputBox("输入要删除的值")) For i = 0 To UBound(a) If a(i) = Key Then ________ End If Next i If i <= UBound(a) Then For j = i + 1 To UBound(a) a(j - 1) = a(j) Next ReDim Preserve a(UBound(a) - 1) MsgBox("删除完成") Else MsgBox("找不到要删除的元素") End If