Dim a={1,2,3,1,1}
For i = 0 To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) = a(j) Then
TracePrint "a(" & i & ") 和 a(" & j & ") 重复。"
Exit for
End If
Next
Next
按键精灵-找出数组中重复的成员
最新推荐文章于 2025-04-02 16:39:25 发布
本文介绍了一种使用双重循环遍历数组来查找重复元素的方法。通过内部循环与外部循环的配合,当发现数组中有相同数值时,输出这些重复的元素位置。
1697

被折叠的 条评论
为什么被折叠?



