vb中删除数组一个数的代码