Question

How to replace one specific digit in a number with other specific digit in VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared Function replace_digit_in_number(number As Integer, d1 As Integer, d2 As Integer) As Integer
        Dim result As Integer = 0, multiply As Integer = 1
       
        Do While (number <> 0) 
            Dim reminder As Integer = number Mod 10
            
            if (reminder = d1) Then  
                result += d2 * multiply
            else
                result += reminder * multiply
            end if
            multiply *= 10
            number = Int(number / 10)
        Loop
        return result
    End Function
 
    Public Shared Sub Main()
        Dim number As Integer = 18803808
 
        Console.WriteLine(replace_digit_in_number(number, 8, 7))
    End Sub
End Class


' run
'
' 17703707

 

70+ SQL courses for beginners and professionals