Найти количество цифровых символов - VB
Формулировка задачи:
Дана фраза (текст). Найти: Количество цифровых символов
Решение задачи: «Найти количество цифровых символов»
textual
Листинг программы
s="Doc Новичок 1 / 1 / 0 Регистрация: 05.05.2014 Сообщений: 47" l=len(s) for i=0 to 9 s=replace(s,i,"") next msgbox "Количество цифровых символов = " & l-len(s)