把一个数列中所有的相同的数删的只剩一个,VB啊