GTY_TSG / 计算机 / VB检测数组中的重复元素

分享

   

VB检测数组中的重复元素

2017-02-12  GTY_TSG
'需要点击菜单:工程->引用->Microsoft Scripting Runtime
Public Function HasRepeat(ByRef arr() As String) As Boolean Dim dict As Dictionary Set dict = New Dictionary Dim i As Variant For Each i In arr If i <> '' Then If dict.Exists(i) Then HasRepeat = True Exit Function Else dict.Add i, 0 End If End If Next HasRepeat = FalseEnd Function


 

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多
    喜欢该文的人也喜欢 更多

    ×
    ×

    ¥.00

    微信或支付宝扫码支付:

    开通即同意《个图VIP服务协议》

    全部>>