vb编程-删除重复数 幻灯片.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 A(K) = A(K + 1) Next K Ub = Ub - 1 ReDim Preserve A(Ub) 运行程序，结果怎样？ 为什么会是这样？怎样纠正！！ 进行删除处理 Ub = UBound(A) For I = 1 To Ub - 1 For J = I + 1 To Ub If A(I) = A(J) Then For K = J To Ub - 1 A(K) = A(K + 1) Next K End If Next J Next I Ub = Ub - 1 ReDim Preserve A(Ub) Ub = Ub - 1 ReDim Preserve A(Ub) 每当进行删除操作后都要改变数组的维上界，并将数组最后一个元素删除 每当进行删除操作后都要改变数组的维上界，并将数组最后一个元素删除 但是每重循环的循环终值的值是不会改变的因此产生“数组越界”错误。此外刚移入的那个元素不再参加这一轮比较，也将会引发其他错误 纠正方法：将外面的两重For 循环改为Do循环 Ub = UBound(A) N = 1 Do While N Ub I = N + 1 Do While I = Ub If A(N) = A(I) Then For J = I To Ub - 1 A(J) = A(J + 1) Next J Ub = Ub - 1 ReDim Preserve A(Ub) Else I = I + 1 End If Loop N = N + 1 Loop 利用数组的“值”属性 用数组的“下标”属性 如何表示学生的老编号、如何表示学生的新编号 如何处理报数 如何将一个新的编号赋给一个符合条件的学生 由于围成一圈不断在顺序报数，如何防止数组越界 1.如何表示老编号和新编号 定义两个一维数组Old_No和 New_No分别表示老编号和新编号其中Old_No的数组元素下标对应学生的老编号，数组元素的值均为1，用来标识它所代表的学生是否出圈（已获得新编号）New_No的数组元素的下标表示学生的新编号，元素的值对应该学生的老编号 Dim Old_NO(15) As Integer Dim New_NO(15) As Integer Dim I As Integer, Idx As Integer Dim Count As Integer For I = 1 To 15 Old_NO(I) = 1 Next I 2.如何描述1～N报数 将Old_No的数组元素依次逐个相加每当和为N时，则将该元