Question

How to check if specific digit exists in a number with VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function check_digit_exists(ByVal n As Integer, ByVal digit As Integer) As Boolean
        While n > 0
            If digit = n Mod 10 Then
                Return True
            End If

            n = n / 10
        End While

        Return False
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim num As Integer = 230138
		
        Console.WriteLine(check_digit_exists(num, 2))
		
        Console.Write(check_digit_exists(num, 5))
    End Sub
End Class




' run:
'
' True
' False
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Sub Main(ByVal args As String())
        Dim num As Integer = 230138
        Dim str As String = Convert.ToString(num)
		
        Dim digit_exists As String = If((str.IndexOf("2"c) <> -1), "yes", "no")
			
        Console.WriteLine(digit_exists)
			
        Console.Write(If((str.IndexOf("5"c) <> -1), "yes", "no"))
    End Sub
End Class
		
		
		
' run:
'
' yes
' no
'

 

70+ SQL courses for beginners and professionals