Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

Войти
Регистрация
Восстановить пароль
 
Drannzer
0 / 0 / 0
Регистрация: 26.12.2016
Сообщений: 6
#1

Дана строка. Подсчитать количество содержащихся в ней цифр - Visual Basic

27.12.2016, 12:17. Просмотров 180. Ответов 2
Метки нет (Все метки)

Дана строка. Подсчитать количество содержащихся в ней цифр.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2016, 12:17     Дана строка. Подсчитать количество содержащихся в ней цифр
Посмотрите здесь:

Дана фраза. Определить, сколько в ней букв Visual Basic
Visual Basic Как подсчитать в трехзначном числе количество цифр, не превосходящих заданной цифры, введенной с клавиатуры
Дана фраза. Определить имеются ли в ней числа, состоящие из одной цифры. Visual Basic
Дана фраза. Определить, имеются ли в ней симметричные пятибуквенные слова? Visual Basic
Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы). Visual Basic
Подчитать и вывести на экран количество отрицательных чисел, содержащихся в массиве Visual Basic
Visual Basic Подсчитать количество цифр во введенной строке и вычислить их сумму
Дана строка. Определите общее количество символов + и - в ней Visual Basic
Дана строка. Преобразовать в ней все прописные латинские буквы в строчные Visual Basic

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
ji2n
1 / 1 / 1
Регистрация: 08.10.2016
Сообщений: 29
27.12.2016, 12:28     Дана строка. Подсчитать количество содержащихся в ней цифр #2
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Visual Basic
1
2
3
4
5
6
7
 Sub count_n()
 r = "1fghfgh1 gf 4 hgfhfgh65"
 For i = 1 To Len(r)
 If IsNumeric(Mid(r, i, 1)) Then x = x + 1
 Next
 Debug.Print x
 End Sub
Казанский
13141 / 5035 / 1209
Регистрация: 24.09.2011
Сообщений: 7,784
27.12.2016, 22:51     Дана строка. Подсчитать количество содержащихся в ней цифр #3
Сообщение было отмечено автором темы, экспертом или модератором как ответ
или так
Visual Basic
1
2
3
Function CntN(s$) As Long
  If Len(s) Then CntN = CntN(Mid$(s, 2)) - IsNumeric(Left$(s, 1))
End Function
тест в Immediate
Код
?cntn("1fghfgh1 gf 4 hgfhfgh65")
 5
Yandex
Объявления
27.12.2016, 22:51     Дана строка. Подсчитать количество содержащихся в ней цифр
Ответ Создать тему
Опции темы

Текущее время: 01:51. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru