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

[Svetlanka]

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

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

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]

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

 

[Vladimir_S]

Стало быть,

Sub Шалахан()

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

 

[AlexZir]

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