Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何判断两个集合中元素是否相等，不相等输出那个不相等的值


  共有2788人关注过本帖树形打印复制链接

主题：如何判断两个集合中元素是否相等，不相等输出那个不相等的值
帅哥哟，离线，有人找我吗？
XuanYuan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：178 积分：1555 威望：0 精华：0 注册：2015/7/28 21:23:00 		如何判断两个集合中元素是否相等，不相等输出那个不相等的值  发帖心情 Post By：2015/9/5 10:19:00 [只看该作者]

如何判断两个集合中元素是否相等，不相等输出那个不相等的值

 回到顶部
帅哥，在线噢！
bahamute
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1427 积分：11354 威望：0 精华：0 注册：2008/9/1 22:20:00 		  发帖心情 Post By：2015/9/5 10:37:00 [只看该作者]

1. 比较一下两个集合元素个数是否相等
2. 如果个数相等，遍历其中一个集合，用Contains判断在另一个集合中是否存在相同元素。
 回到顶部
帅哥哟，离线，有人找我吗？
XuanYuan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：178 积分：1555 威望：0 精华：0 注册：2015/7/28 21:23:00 		  发帖心情 Post By：2015/9/5 11:09:00 [只看该作者]

那我怎么才能输出那个不相同的元素？
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2015/9/5 11:32:00 [只看该作者]

Dim v1() As String = {"中国","美国","英国","俄罗斯"}
Dim s1 As New List(of String)
Dim s2 As New List(of String)
s1.AddRange(v1)
s2.AddRange(s1)
s2(2) = "法国"


Dim cou As Integer = s1.Count - 1

If s1.Count <> s2.Count Then
    If s1.Count > s2.Count Then
        cou = s2.Count - 1
        msgbox("s1比s2多" & s1.Count - s2.Count & "个元素")
    Else
        msgbox("s2比s1多" & s2.Count - s1.Count & "个元素")
        
    End If
End If

For i As Integer = 0 To cou
    If s2(i) <>  s1(i) Then
        msgbox("第" & i+1 & "个元素值不同:" & vbcrlf & "s1:" & s1(i) & "s2:" & s2(i))
    End If
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询