最新消息:51学网、致力于建站技术交流、编程技术分享、绿色精品软件分享,共同学习

按键精灵-找出数组中重复的成员

按键精灵 biao197 7浏览 0评论

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

转载请注明:51学网 » 按键精灵-找出数组中重复的成员

发表我的评论
取消评论
表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址