Question

How to remove the N digit from a number in VB.NET

Answer 1

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, n_digit As Integer) As Integer
        Dim rev_new_num As Integer = 0, i As Integer = 0
        Dim l As Integer = Int(Math.Log10(num)) + 1
           
        Do While (num <> 0)
            Dim digit As Integer = num Mod 10
            num = Int(num / 10)
         
            if (i <>  l - n_digit) Then
                rev_new_num = (rev_new_num * 10) + digit
            End If
            i += 1
        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, 1))
        Console.WriteLine(delete_digit(num, 5))
    End Sub
End Class
 
 
 
' Run:
 
' 3798
' 7598
' 3759
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
 
Public Class Program
    Public Shared Function remove_the_N_digit(ByVal num As Integer, ByVal N As Integer) As Integer
        Dim str As String = Convert.ToString(num)
         
        str = str.Substring(0, N) & str.Substring(N + 1)
         
        Return Integer.Parse(str)
    End Function
 
    Public Shared Sub Main(ByVal args As String())
        Dim num As Integer = 870615
         
        num = remove_the_N_digit(num, 3)
         
        Console.WriteLine(num)
    End Sub
End Class
 
 
 
 
' run:
'
' 87015
'

 

70+ SQL courses for beginners and professionals