Комбинация букв

09.05.2011, 07:21. Показов 988. Ответов 0

Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Есть задача: даны комбинации букв "сн", "кр" и "ий". Найти слова содержащие эти комбинации и выделять(в фокус) их последовательно.
вот до чего я додумался:

Visual Basic

Private Sub Command1_Click()
Dim A() As String
A = Split(Text1.Text)
Dim I As Integer
For I = 0 To UBound(A)
  If (InStr(1, A(I), "кр", vbTextCompare) > 0) Or (InStr(1, A(I), "сн", vbTextCompare) > 0) Or (InStr(1, A(I), "ий", vbTextCompare) > 0) Then
MsgBox S(I)
  End If
Next
End Sub

но как сделать, чтобы каждое слово выделялось не знаю, помогите пожалуйста.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.05.2011, 07:21

Ответы с готовыми решениями:

Создать словарь - комбинация букв и цифр; длина последовательности - 8 символов
Всем привет. Кто поможет создать программу которая может составить словарь набором таких символов:...

Автомобильные номера состоят из 1,2, или 3 букв и 4 цифр. используется 30 букв, найти число таких букв
Автомобильные номера состоят из 1,2, или 3 букв и 4 цифр. используется 30 букв, найти число таких...

В введенном тексте подсчитать количество цифр, всех букв, прописных букв, заглавных букв
Помогите,пожалуйста программа на QBasic В введенном тексте подсчитать количество цифр,всех букв,...

Дана строка с набором случайных символов, при вводе 10 букв первые 5 букв становятся большими , вторые 5 букв маленькими
Дана строка с набором случайных символов, при вводе 10 букв первые 5 букв становятся большими ,...

	09.05.2011, 07:21

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.05.2011, 07:21

Помогаю со студенческими работами здесь

Дано слово. Поменять местами первую из букв а и последнюю из букв о. Учесть возможность того, что таких букв в слове мож
Дано слово. Поменять местами первую из букв а и последнюю из букв о. Учесть возможность того, что...

Комбинация клавиш
надо как-то скомбинировать т.е если нажата комбинация (num7 + "+") then.... писал вот так ...

Комбинация клавиш
Нужно отослать определенную команду в найденное окно. Окно найдено, команды отсылаются, но... ...

Комбинация клавиш
Что-то случилось со студией (VS2012-ULTIMATE). Когда нажимаю "ctrl + f5" при программировании на...

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

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх