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
按键精灵-找出数组中重复的成员
最新推荐文章于 2024-05-16 21:24:26 发布