Question

How to check if the digits of a number are prime in VB.NET

Answer 1

Imports System

Public Class Program
    Private Shared Function isPrime(ByVal n As Integer) As Boolean
		' prime digits = 2, 3, 5, 7
		
        If n = 2 OrElse n = 3 OrElse n = 5 OrElse n = 7 Then
            Return True
        End If

        Return False
    End Function

    Private Shared Function isDigitsPrime(ByVal n As Integer) As Boolean
        While n > 0
            If Not isPrime(n Mod 10) Then
                Return False
            End If

            n = n \ 10
        End While

        Return True
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 7355727
		
        Console.Write((If(isDigitsPrime(n), "yes", "no")))
    End Sub
End Class



' run:
'
' yes
'

 

70+ SQL courses for beginners and professionals