如下代码
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 temps As new List(Of String)
For i As Integer = 0 To names.Count - 2
For j As Integer = i+1 To names.Count - 1
If names(i) = names(j) Then
If temps.Contains(names(i)) = False Then
temps.Add(names(i))
End If
Exit For
End If
Next
Next
For Each temp As String In temps
output.Show(temp)
Next
加好友 
发短信
Post By：2014/1/8 19:23:00 [显示全部帖子]
