Private Sub Command1_Click()
Dim i, j
Dim a() As String
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a) - 1
For j = 1 To UBound(a)
If i <> j And a(i) = a(j) Then
Print "第" & i + 1 & "行和第" & j + 1 & "行" & a(i) & "; 重复; "
Text1.Text = Replace(Text1.Text, vbCrLf & a(j) & vbCrLf, vbCrLf)
End If
Next
Next
End Sub