Описать рекурсивную функцию DigitCount(S) целого типа - VB
Формулировка задачи:
помогииите)
Описать рекурсивную функцию DigitCount(S) целого типа, которая находит количество цифр в строке S, не используя оператор цикла. С помощью этой функции найти количество цифр в каждой из пяти данных
строк.
строки вводим произвольно)
Решение задачи: «Описать рекурсивную функцию DigitCount(S) целого типа»
textual
Листинг программы
Function DC(S As String, Optional p As Long = 1) As Long If Len(S) >= p Then DC = DC(S, p + 1) - IsNumeric(Mid$(S, p, 1)) End Function