Imports System
Public Class Test
Public Shared Function reverse_number(num As Integer) As Integer
Dim reminder As Integer, reverse As Integer = 0
Do While (num <> 0)
reminder = num Mod 10
reverse = reverse * 10 + reminder
num = Int(num / 10)
Loop
return reverse
End Function
Public Shared Function delete_digit(num As Integer, d As Integer) As Integer
Dim rev_new_num As Integer = 0
Do While (num <> 0)
Dim digit As Integer = num Mod 10
num = Int(num / 10)
if (digit <> d) Then
rev_new_num = (rev_new_num * 10) + digit
End If
Loop
return reverse_number(rev_new_num)
End Function
Public Shared Sub Main()
Dim num As Integer = 37598
Console.WriteLine(delete_digit(num, 3))
Console.WriteLine(delete_digit(num, 8))
Console.WriteLine(delete_digit(num, 5))
End Sub
End Class
' Run:
' 7598
' 3759
' 3798
