Рекурсивная функция для подсчета количества цифр в заданном натуральном числе - VB

Формулировка задачи:

Нужно сделать рекурсивную функцию для подсчета количества цифр в заданном натуральном числе. Я смог сделать только обычную функцию для подсчета количества цифр, а вот рекурсивная не получается. Помогите пожалуйста.

Function pod(ByVal x As Single) As Integer
pod = 0
Do While x <> 0
x = x \ 10
pod = pod + 1
pod = pod(x)
Loop
End Function

Решение задачи: «Рекурсивная функция для подсчета количества цифр в заданном натуральном числе»

textual
                            Листинг программы 
                        

                            Function podR(x As Long) As Long
  If x Then podR = podR(x \ 10) + 1
End Function
                        

Оцени полезность:

11 голосов , оценка 3.909 из 5

Похожие ответы