删除一个数列中的重复数Option ExplicitOption Base 1Dim A() As Integer '定