Question

How to recursively count the digits of a number in VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared counter As Integer = 0
    
    Public Shared Function count_digits(n As Integer) 
        if (n <> 0) Then
            counter += 1
            count_digits(CType(Math.Floor(n/10), Integer))
        End If
        
        return counter
    End Function
    
    Public Shared Sub Main()
        Dim n as Integer = 93844
        
        Console.WriteLine(count_digits(n))
    End Sub
End Class


' run:
'
' 5

 

70+ SQL courses for beginners and professionals