Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 07.05.2019
Сообщений: 49
1

Дана строка; определить, сколько раз входит в нее группа букв abc

08.05.2019, 09:07. Показов 1292. Ответов 4
Метки нет (Все метки)

дана строка (которую я ввожу с textbox) определить сколько раз входит в нее группа букв abc

Добавлено через 12 минут
Есть заготовка, но она не рабочая:
Private Sub CommandButton1_Click()
Visual Basic
1
2
3
4
5
6
7
8
S = TextBox1
For i = 1 To Len(S)
  Select Case Mid$(S, i, 1)
  Case "abc" To "ABC": c = c + 1
  End Select
Next
Label1.Caption = "Количество фраз 'abc' = " & c
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2019, 09:07
Ответы с готовыми решениями:

Определить, сколько раз в файл входит группа букв abc
необходимо считать текст из файла

Дана фраза. Определить, сколько в ней букв
Дана фраза. Определить, сколько в ней букв( к буквам не относятся символы, разделители, пробелы,...

Дана строка. Определить, сколько раз входит в нее группа букв abc
Дана строка. Определить, сколько раз входит в нее группа букв abc.

Дана строка. Определить сколько раз входит в нее группа букв abc
Дана строка. Определить сколько раз входит в нее группа букв abc Нужен код программы и блок-схема,...

4
3997 / 1393 / 383
Регистрация: 07.08.2013
Сообщений: 3,494
08.05.2019, 09:55 2
Sebastian404, задача простая как апельсин
есть строка и есть длинна строки
если в строке какие-то символы заменить на строку нулевой длинны
то изначальная строка сократится на сколько то символов
остается из первоначальной длинны строки вычесть длину измененной строки
а полученный результат разделить на количество символов в образце
в коде будет так
Visual Basic
1
2
3
4
5
6
Dim S$, m&
S = TextBox1
m=len(S)'определяем длину изначальной строки
S=Replace(S,"abc","")'заменяем набор символов на строку нулевой длинны
m=m-len(S)'определяем разницу между начальной длинной строки и длинной измененной строки
Label1.Caption = "Количество фраз 'abc' = " & m/3'выводим сообщение и делим полученный результат на количество символов в наборе
1
411 / 248 / 118
Регистрация: 26.12.2012
Сообщений: 786
08.05.2019, 22:07 3
Анализируется как по строке, слову так и по всему тексту.При этом ни какие изменения в исходную строку не вносятся.
Регистр не учитывается.
Visual Basic
1
2
3
4
5
6
Dim Num As Object
With CreateObject("VBScript.RegExp"): .Global = True: .IgnoreCase = True ' False учитывать регистр
    .Pattern = "abc"
    Set Num = .Execute(Text1.Text)
End With
 Label1.Caption = "Группа букв "abc" входит   " & Num.Count & " раз."
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
30635 / 16864 / 3474
Регистрация: 12.02.2012
Сообщений: 28,259
Записей в блоге: 5
10.05.2019, 13:31 4
Visual Basic
1
       n&=(len(s)-len(Replace$(s,"abc","")))\3
При этом никакие (слитно!) изменения в исходную строку s также не вносятся...
1
103 / 63 / 10
Регистрация: 13.02.2017
Сообщений: 178
13.05.2019, 16:31 5
Visual Basic
1
Label1.Caption = "Количество фраз 'abc' = " & UBound(Split(LCase(TextBox1), "abc"))
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2019, 16:31

Дана строка. Определить, сколько раз входит в нее группа букв abc
24. Дана строка. Определить, сколько раз входит в нее группа букв abc я бы с удовольствием...

Дана строка. Определить, сколько раз входит в нее группа букв abc
Дана строка. Определить, сколько раз входит в нее группа букв abc.

Дана строка. Определить, сколько раз входит в нее группа букв abc
Дана строка. Определить, сколько раз входит в нее группа букв abc. Во всех заданиях исходные...

Дана строка. Определить, сколько раз входит в нее группа букв abc.
Дана строка. Определить, сколько раз входит в нее группа букв abc.


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru