vb编程-删除重复数0.pptVIP

删除重复数 删除重复数 删除重复数 使用数组的不同属性编程 重新编号 解题分析 —— 要解决的问题 重新编号 — 解题分析:如何做 重新编号 — 解题分析 重新编号 * 1 8 9 8 1 5 删除 5 1 8 9 8 5 第一轮结束 删除 5 第二轮结束 1 8 9 5 重复数已删除 1.确定需要几轮比较 待处理数据个数-1次 Ub = UBound(A) For I = 1 To Ub - 1 Next I 1.确定需要几轮比较 待处理数据个数-1次 2.在每一轮对比中依次逐 个比较，若有重复数， 则进行删除处理 For J = I + 1 To Ub If A(I) = A(J) Then End If Next J 1.确定需要几轮比较 待处理数据个数-1次 2.在每一轮对比中依次逐 个比较，若有重复数， 则进行删除处理 3.删除处理：将数组后面 的元素依次向前移动覆 盖前面的数组元素 For K = J To Ub - 1