Найти количество цифровых символов - 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)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
