Question

How to write a recursive function that counts digits of a number in VB.NET

Answer 1

Imports System

Class CRecursiveCountDigits
    Public Shared Sub Main(ByVal args As String())
        Dim n As Integer = 12345
        Console.WriteLine(RecursiveCountDigits(n))
		
        n = 1234
        Console.WriteLine(RecursiveCountDigits(n))
		
        n = 123
        Console.WriteLine(RecursiveCountDigits(n))
		
        n = 1234567
        Console.WriteLine(RecursiveCountDigits(n))
    End Sub

    Public Shared Function RecursiveCountDigits(ByVal n As Integer) As Integer
        If n = 0 Then
            Return 0
        End If

        Return 1 + RecursiveCountDigits(n / 10)
    End Function
End Class



' run:
'
' 5
' 4
' 3
' 7
'

 

70+ SQL courses for beginners and professionals