主题：集合问题请教

Dim Names As New List(Of String)
names.Add("中国")
names.Add("人民中国万岁")
names.Add("万岁")
names.Add("中国人民")
names.Add("人民中国")
names.Add("人民中国万岁")
names.Add("人民的中国")
names.Add("中华人民共和国")
names.Add("中国")
names.Add("人民中国万岁")

Dim tmp As New List (Of String)
For i As Integer = 0 To names.Count - 1
    For j As Integer = 0 To names.Count - 1
        If i <> j AndAlso names(i) = names(j) AndAlso tmp.Contains(names(i)) = False Then
            Output.Show(names(i))
            tmp.Add(names(i))
            Exit For
        End If
    Next
Next