如何判断两个集合是否相同 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何判断两个集合是否相同

共有2287人关注过本帖树形打印复制链接主题：如何判断两个集合是否相同

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/29 9:30:00 [显示全部帖子]

Dim Names1 As New List(Of String)
Names1.Add( "电视机")
Names1.Add("电冰箱")
Names1.Add("洗衣机")
Dim Names2 As New List(Of String)
Names2.Add( "电视机")
Names2.Add("电冰箱")
Names2.Add("洗衣机")

If names1.count <> names2.count Then
    Return False
Else
    For i As Integer = 0 To names1.count-1
        If names1(i) <> names2(i) Then
            Return False
        End If
    Next
End If
Return True

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/29 9:32:00 [显示全部帖子]

Dim Names1 As New List(Of String)
Names1.Add( "电视机")
Names1.Add("电冰箱")
Names1.Add("洗衣机")
Dim Names2 As New List(Of String)
Names2.Add( "电视机")
Names2.Add("洗衣机")
Names2.Add("电冰箱")

If names1.count <> names2.count Then
    Return False
Else
    For i As Integer = 0 To names1.count-1
        If names1.Contains(names2(i)) = False Then
            Return False
        End If
    Next
    For i As Integer = 0 To names1.count-1
        If names2.Contains(names1(i)) = False Then
            Return False
        End If
    Next

End If
Return True

下一主题 >> << 上一主题

主题：如何判断两个集合是否相同