Помогите доделать задачу. Строки.

Svetlanka · 28.12.2010, 14:55

Ввести текст. Подсчитать количество слов в тексте, длина которых меньше введенного числа.

Код:

Sub Шалахан()
Dim S As String
Dim k As Double, n As Double
k = 0
n = InputBox("Введите n")
S = InputBox("Введите текст")
If

k = k + 1
MsgBox "Количество слов=" & k
End If
End Sub

AlexZir · 09.01.2011, 07:52

Svetlanka
Вам, по-идее, нужно сначала разбить введенный текст на слова. Это делается в циклической структуре, а не в команде ветвления. Да и переназначать имена с массива обычной переменной - не есть хорошо, могут быть различные глюки.

Vladimir_S · 09.01.2011, 08:37

Название: offtopic.gif
Просмотров: 113

Размер: 925 байт

Стало быть,

Цитата:

Sub Шалахан()

Как там у Высоцкого? "Что-й то мне знакомое, так-так...". У Вас с Дашкой корпорация, или, вопреки Правилам форума, с аккаунтами манипулируете? Вот погодите, ужо доберусь!

AlexZir · 09.01.2011, 09:04

И имена модулям нужно на латинице писать, а не на кириллице

28.12.2010, 14:55	#1 (permalink)
Svetlanka Member Регистрация: 15.11.2010 Сообщений: 34 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите доделать задачу. Строки. Ввести текст. Подсчитать количество слов в тексте, длина которых меньше введенного числа. Код: Sub Шалахан() Dim S As String Dim k As Double, n As Double k = 0 n = InputBox("Введите n") S = InputBox("Введите текст") If k = k + 1 MsgBox "Количество слов=" & k End If End Sub

09.01.2011, 07:52	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Svetlanka Вам, по-идее, нужно сначала разбить введенный текст на слова. Это делается в циклической структуре, а не в команде ветвления. Да и переназначать имена с массива обычной переменной - не есть хорошо, могут быть различные глюки. __________________ Убить всех человеков!

09.01.2011, 09:04	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	И имена модулям нужно на латинице писать, а не на кириллице __________________ Убить всех человеков!

28.12.2010, 14:55
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Прошу вас, обратите внимание на схожие обсуждения Помогите решить задачу Помогите переделать задачу Помогите переделать задачу

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070