以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如何判断一个集合中所有内容都是一样的  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60771)
--  作者：affixed
--  发布时间：2014/12/1 10:15:00
--  请问如何判断一个集合中所有内容都是一样的
请问如何判断一个集合中所有内容都是一样的？
比如，集合A{“这”，“这”，“这”}，集合B{“这”，“这”，“那”}

集合A是符合要求的，B就不符合要求了。

谢谢！
--  作者：有点甜
--  发布时间：2014/12/1 10:17:00
--  
 循环每一个原始，判断
--  作者：有点甜
--  发布时间：2014/12/1 10:18:00
--  

Dim ary() As String = {"这","这","那"}

For Each s As String In ary
    If s <> ary(0) Then
        msgbox("不同")
        Exit For
    End If
Next
--  作者：程兴刚
--  发布时间：2014/12/1 10:34:00
--  

对比两个集合内容:

 

Dim ary1() As String = {"这","这","这"}
Dim ary2() As String = {"这","这","那"}
Dim s1,s2 As String
For i As Integer = 0 To ary1.Length-1
    s1= s1 & ary1(i)
Next
For i As Integer = 0 To ary2.Length-1
    s2= s2 & ary2(i)
Next
If s1 <> s2
    MessageBox.show("两个集合的内容不一致!") \'此方法适用于当内容一致但值排序不一致
End If
--  作者：程兴刚
--  发布时间：2014/12/1 23:27:00
--  
晕，A、B把我带沟里了！