Вывод слов с буквой k

@Gooner · Регистрация: 12.02.2015

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

Доброе время суток!
Никак не могу решить такую вот задачу, а точнее только часть задачи:
Разработать приложение на Visual Basic Дана строка. Указать те слова, которые содержат хотя бы одну букву k.

Я никак не могу понять, какую часть кода программы нужно написать, чтобы при наличии только буквы k выводилось все слово целиком.
Заранее благодарен!

@BasicMan · 20.10.2009, 10:33

Visual Basic
1
2
3
dim типамоястрокачолина as string
типамоястрокачолина=inputbox("типа, чоли на, ввести строку, на")
If InStr(1, типамоястрокачолина,"k")<>0 then msgbox типамоястрокачолина

@Toxa33rus · 20.10.2009, 10:39

CyberБурундукЪ, типа чоли проверяет на типа есть ли чоли в предложении буква кэ?
А надо-то в слове

Visual Basic
1
2
3
4
5
6
dim типабурундукастрокачолина as string
типабурундукастрокачолина=inputbox("типа, чоли на, ввести строку, на")
words = split(типабурундукастрокачолина, " ")
for i=0 to Ubound(words)
  if instr(words(i), "к") > 0 then msgbox words(i)
next i

@HeaTRay · 21.10.2009, 19:09

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Command1_Click()
  Dim sText As String
  Dim arWords() As String
  Dim i As Integer
  Dim sOut As String
  Const PUNCTUATION = ".,?!"":;—"
  sText = Text1.Text
  For i = 1 To Len(PUNCTUATION)
    sText = Replace(sText, Mid(PUNCTUATION, i, 1), "")
  Next
  arWords = Split(sText, " ")
  For i = 0 To UBound(arWords)
    If InStr(arWords(i), "k") <> 0 Then sOut = sOut + vbCrLf + arWords(i)
  Next
 
  If Len(sOut) > 0 Then
    MsgBox "Naideno: " + vbCrLf + sOut, vbInformation + vbOKOnly, "poisk okon4en"
  Else
    MsgBox "Netu  k.", vbInformation + vbOKOnly, "poisk okon4en"
  End If
End Sub

помогите понять код
сначала dim мы обьявляем переменные
Const PUNCTUATION = ".,?!"":;—"
это т.е после каждого слова знаки препинания..
что значит sText
arWords это все слова? ну сплит разбивает текст это понятно.
Функция UBound -в инете
Возвращает наибольший доступный индекс для указанного измерения массива.
но что именно она дает в тексте?
sOut тоже не понятно
vbCrLf как я понял переход на новую строку
vbInformation + vbOKOnly что это?
и еще была функция with что она дает? помогите кто что знает

@Toxa33rus · 21.10.2009, 19:30

sText это переменная, содержащая текст из текстового поля Text1
Дальше мы удаляем все знаки пунктуации (8-10 строки)
Создаем массив слов (11)
Пробегаем циклом от первого (с номером ноль) до последнего (это нам подскажет UBound) (12-14)
Если в слове есть буква "k", то дописываем это слово в список которрый будет ответом (13)
Если хоть одно слово нашли то выводи их(его) иначе выводим сообщение что ничего нет (19)
vbInformation + vbOKOnly - константы указывающие что окно с сообщением должно содержать значек с буквой "i" и единственную кнопку "ОК"

Сообщение от HeaTRay

и еще была функция with что она дает?

Было бы проще объяснить если бы она и сейчас была, но раз ее нет то...

Добавлено через 2 минуты
Знакомая задача. Вчера или позавчера она была уже с поиском слов с буквой "К". Популярная буква.

@HeaTRay · 21.10.2009, 19:48

огромное спасибо) ну там в command button'e
with msflexgrid -ну т.е он делает в ей операцию?

@BasicMan · 21.10.2009, 20:22

Оператор With...End With

With...End With позволяет выполнить ряд операторов с указанным объектом без повторного указания имени объекта. Если классификационный путь к объекту слишком длинный, использование With...End With может повысить производительность. Блок With также уменьшает количество повторных наборов классификационного пути и риск неверного ввода одного из его элементов.

Например, чтобы изменить ряд различных свойств одного объекта, поместите операторы присваивания свойств внутрь блока With...End With, сославшись на объект лишь единожды, а не на каждом свойстве.

RTFM(SDN)

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Gooner 0 / 0 / 0 Регистрация: 12.02.2015 Сообщений: 6

	Вывод слов с буквой k 20.10.2009, 00:07. Показов 1695. Ответов 6 Метки нет (Все метки) Доброе время суток! Никак не могу решить такую вот задачу, а точнее только часть задачи: Разработать приложение на Visual Basic Дана строка. Указать те слова, которые содержат хотя бы одну букву k. Я никак не могу понять, какую часть кода программы нужно написать, чтобы при наличии только буквы k выводилось все слово целиком. Заранее благодарен! 0

@HeaTRay 0 / 0 / 0 Регистрация: 20.10.2009 Сообщений: 4
	21.10.2009, 19:48
	огромное спасибо) ну там в command button'e with msflexgrid -ну т.е он делает в ей операцию? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	21.10.2009, 20:22
	Оператор With...End With With...End With позволяет выполнить ряд операторов с указанным объектом без повторного указания имени объекта. Если классификационный путь к объекту слишком длинный, использование With...End With может повысить производительность. Блок With также уменьшает количество повторных наборов классификационного пути и риск неверного ввода одного из его элементов. Например, чтобы изменить ряд различных свойств одного объекта, поместите операторы присваивания свойств внутрь блока With...End With, сославшись на объект лишь единожды, а не на каждом свойстве. RTFM(SDN) 0