实现合并排序以排序数组并显示数组中的任何重复值

Question

我制作了以下程序并实现了合并排序，它对用户填充的数组进行排序，然后从数组中选择任何重复的值。但是，我在main方法中遇到了一个小问题。示例：我输入数字4三次，它将显示＆＃34;重复：4＆＃34;两次;我的目标是让它只显示一次，与4个重复数量无关。谢谢你们。

Sub runit()
   Dim Shex As Object
   Set Shex = CreateObject("Shell.Application")
   tgtfile = "../folder/file.pdf"
   Shex.Open (tgtfile)
End Sub

}

Answer 1

我会尝试这样：

• 如果数组长度为1，则没有重复
• 如果数组的长度> 1，然后迭代元素
  • 第一个元素不能重复
  • 如果下一个元素（假设没有到达数组的末尾）与当前元素具有相同的值，我发现了一个副本。将副本添加到类似Set的内容中。
  • 继续下一次迭代。
• 完成对数组的迭代后，打印类似Set的结构的所有元素。