Найти количество цифровых символов - 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)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

14   голосов , оценка 4.214 из 5
Похожие ответы