Question

How to check if a number contains identical digits in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic
 
Public Class NumberContainIdenticalDigits_VB
	Public Shared Function isNumberContainIdenticalDigits(ByVal num As Integer) As Boolean
		Dim str As String = num.ToString()
		
        Dim arr As Char() = str.ToCharArray()
         
        Dim hset = New HashSet(Of Char)(arr)
         
        Return hset.Count = 1
    End Function
 
    Public Shared Sub Main(ByVal args As String())
		Dim num As Integer = 222222
 
		If isNumberContainIdenticalDigits(num) Then
            Console.WriteLine("yes")
        Else
            Console.WriteLine("no")
        End If
    End Sub
End Class
 
 
 
' run:
'
' yes
'

 

70+ SQL courses for beginners and professionals