主题：请问如何判断一个集合中所有内容都是一样的

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

For Each s As String In ary
    If s <> ary(0) Then
        msgbox("不同")
        Exit For
    End If
Next

对比两个集合内容:

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