Question

How to check if array contains only distinct (non-repeating) elements in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function containsOnlyUniqueElement(ByVal arr As Integer()) As Boolean
        Dim [set] As HashSet(Of Integer) = New HashSet(Of Integer)()

        For i As Integer = 0 To arr.Length - 1
            [set].Add(arr(i))
        Next

        If [set].Count = arr.Length Then Return True

        Return False
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {1, 5, 7, 3, 9, 8, 0, 2}

        If containsOnlyUniqueElement(arr) Then
            Console.Write("Yes")
        Else
            Console.Write("No")
        End If
    End Sub
End Class




' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function containsOnlyUniqueElement(ByVal arr As String()) As Boolean
        Dim [set] As HashSet(Of String) = New HashSet(Of String)()

        For i As Integer = 0 To arr.Length - 1
            [set].Add(arr(i))
        Next

        If [set].Count = arr.Length Then Return True
					
        Return False
    End Function

    Public Shared Sub Main()
		Dim arr As String() = {"vb.net", "c", "c++", "java", "python", "php"}

        If containsOnlyUniqueElement(arr) Then
            Console.Write("Yes")
        Else
            Console.Write("No")
        End If
    End Sub
End Class




' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function containsOnlyUniqueElement(ByVal arr As Integer()) As Boolean
        Dim [set] As HashSet(Of Integer) = New HashSet(Of Integer)(arr)
			
        Return [set].Count = arr.Length
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {1, 5, 7, 3, 9, 8, 0, 2}

        If containsOnlyUniqueElement(arr) Then
            Console.Write("Yes")
        Else
            Console.Write("No")
        End If
    End Sub
End Class
	
		
		

' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals