Вывести слово с номером K заданного предложения

@katarina zima · Регистрация: 13.12.2009

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

а можете мне помочь?

Вывести слово с номером K заданного предложения.

хотелось бы знать решение как делать, а там разберусь в понимании задачи. а то нас на понимание спрашивают..
буду оч благодарна

@Toxa33rus · 24.03.2010, 14:27

Сообщение от katarina zima

серым выделилось Str, и тип написало что argument not optimal

Я пишу код в экселе и там так можно а в VB нельзя использовать переменную str. Надо все str заменить на что-нибудь другое (например, stroka).

Сообщение от katarina zima

а что значит "do while instr" и почему именно больше нуля?

"крутить цикл пока в строке есть 2 пробела"

Сообщение от katarina zima

и что значит replace

"заменить"

Сообщение от katarina zima

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

Ничего не надо больше писать. Все лишние уберуться.

Сообщение от katarina zima

что значит loop,trim ? что они делают..?)

loop это конец цикла do while
trim удаляет лишние пробелы в начале строки и в конце (кстати там это и написано уже)

Сообщение от katarina zima

у мя ща нету нэта

эльфийская скороговорка

@katarina zima · 24.03.2010, 23:08 **[ТС]**

do while instr( str, " ")

я написала прогу, но не читает instr, это при условии что я поменяла на "stroka" везде, соответственно получается " instroka" , но программа не читает так. выделяет желтым цветом эту строку и пишет что 13 ошибка. на что там над заменить?

@Toxa33rus · 25.03.2010, 00:17

Ты же убила его!

А я думаю чего это у меня свет весь вечер моргает а это ты неправильный код запускаешь

instr не надо менять было!

@katarina zima · 25.03.2010, 10:21 **[ТС]**

блин я вообще запуталась О_о
вроде сделала все как ты сказал, оставила только instr, но программа вообще не читает. я нажимаю на получение результата а она зависает ( и вылетает в итоге) и тип ошибка
посмотри что не так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
stroka = "съешь  еще этих мягких французских булок да выпей чаю"
Do While InStr(stroka, " ") > 0
stroka = Replace(stroka, " ", " ")
Loop
stroka = Trim(stroka)
k = 5
maciv = Split(stroka, " ")
MsgBox (k - 1)
End Sub

@Toxa33rus · 25.03.2010, 16:55

За что мне это?

Куда делись двойные пробелы из кода?!

Естественно программа ушла в бесконечный цикл.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
stroka = "   съешь    еще этих     мягких французских булок да    выпей чаю   "
Do While InStr(stroka, "  ") > 0
  stroka = Replace(stroka, "  ", " ")
Loop
stroka = Trim(stroka)
k = 5
maciv = Split(stroka, " ")
MsgBox maciv(k - 1)
End Sub

@katarina zima · 25.03.2010, 20:40 **[ТС]**

сори.. я наверн не правильно задала вопрос... поэтому получилось недоразумение..

конкретно мне препод задал вот так: чтобы после первого и перед 2м. было 2 пробела.
[VB]stroka = "съешь еще этих мягких французских булок да выпей чаю"[VB]

но когда я у тебя спрашивала, то мне надо просто было знать , что делать если он спросит, например так:

Visual Basic
1
stroka = "съешь  еще   этих   мягких французских булок да выпей чаю"

т.е. не везде но по 2 пробела
или

Visual Basic
1
stroka = "съешь  еще    этих   мягких французских булок да выпей чаю"

3 пробела в одном месте а в других по 2
или

Visual Basic
1
stroka = "  съешь еще этих мягких французских булок да выпей чаю"

2 или 1 пробел перед или в конце предложения..ну это я так поняла , неважно скока пробелов но функция trim

вот отвечу я на тот вопрос что он задал,а если он что то еще с пробелами мне поменяет.или доставит..а я не буду знать..то это жесть будет..

@Toxa33rus · 25.03.2010, 20:52

trim обрезает пробелы по краям строки

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@katarina zima 0 / 0 / 0 Регистрация: 13.12.2009 Сообщений: 27

	Вывести слово с номером K заданного предложения 13.03.2010, 00:58. Показов 4003. Ответов 26 Метки нет (Все метки) а можете мне помочь? Вывести слово с номером K заданного предложения. хотелось бы знать решение как делать, а там разберусь в понимании задачи. а то нас на понимание спрашивают.. буду оч благодарна 0

@Toxa33rus 3926 / 928 / 125 Регистрация: 16.04.2009 Сообщений: 1,991
	25.03.2010, 00:17
	Ты же убила его! А я думаю чего это у меня свет весь вечер моргает а это ты неправильный код запускаешь instr не надо менять было! 0

@Toxa33rus 3926 / 928 / 125 Регистрация: 16.04.2009 Сообщений: 1,991
	25.03.2010, 20:52
	trim обрезает пробелы по краям строки 0