Question

How to check if a number is pandigital in VB.NET

Answer 1

Imports System

Public Class Program
	Public Function IsPandigital(ByVal num As Integer) As Boolean
        Dim array As Char() = num.ToString().ToCharArray()
        Array.Sort(array)
        Dim number1 As Integer = CInt(Char.GetNumericValue(array(0)))

        For i As Integer = 1 To array.Length - 1
            Dim number2 As Integer = CInt(Char.GetNumericValue(array(i)))

            If number2 <> number1 + 1 Then
                Return False
            End If

            number1 = number2
        Next

        Return True
    End Function

    Public Sub Main()
        Dim num As Integer = 15234

        If IsPandigital(num) Then
            Console.WriteLine("Yes")
        Else
            Console.WriteLine("No")
        End If
    End Sub
End Class



' run:
'
' Yes
'

 

70+ SQL courses for beginners and professionals