VB.NET中判断一个数组中是否有重值

 Private Function IsDup(ByVal s() As String) As Boolean
        Dim str As String
        For Each str In s '遍历整个数组
            If Array.IndexOf(s, str) <> Array.LastIndexOf(s, str) Then
                Return True
            End If
        Next
        Return False
 End Function

在其中加一小小代码,亦可以得出重复的元素和其序号.当然也可以得出一个去掉了重复元素的新数组