Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Виталий97
1 / 1 / 0
Регистрация: 15.10.2015
Сообщений: 60
1

Подсчитать, сколько в строке слов нечетной длины

08.10.2016, 12:22. Просмотров 467. Ответов 1
Метки нет (Все метки)

Подсчитать, сколько в строке слов нечетной длины.
Программу написал, но не работает, что исправить и как?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub самостоятельно()
Dim s As String, s1 As String
Dim p As Integer, k As Integer
s = InputBox("введите строку")
s = s + " "
k = Len(s) 
p = InStr(s, " ")
i = 1
s4 = 0
While (p <> 0)
       s1 = Mid(s, 1, p - 1)
       k = Len(s1)
       If (k Mod 2) = 1 Then s4 = s4 + 1
    s2 = Mid(s, p + 1, k)
    k = Len(s2)
    y = (s1 Mod 2) = 1
    Worksheets("Лист4").Cells(i, 5) = s4
    Went
End Sub
1
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2016, 12:22
Ответы с готовыми решениями:

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

Подсчитать, сколько различных символов встречается в строке
Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран.

Подсчитать, сколько раз определенный символ встречается в строке
написать программу: Подсчитать, сколько раз определенный символ (например «а») встречается в...

Подсчитать, сколько раз в данной строке встречается буква Ch, вводимая с клавиатуры
Нужно решить задачу в VBA, помогите пожалуйста. Все перепробовал, никак не получается(((

Подсчитать количество слов нечетной длины в строке
помогите пожалуйста! зделал задание на подсчёт всех слов, а вот на непарные не могу додумать как...

1
Sasha_Smirnov
5494 / 1322 / 144
Регистрация: 08.02.2009
Сообщений: 4,042
Записей в блоге: 29
08.10.2016, 16:28 2
Вопрос, где ошибка, для меня неразрешим (некогда вникать), но по теме есть готовые проекты:
Спасибо за спасибо, но пока в общем-то не за что: там слова в Word, а тут у вас просто строка.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2016, 16:28

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

Подсчитать количество слов, нечетной длины, найти частоту вхождения букв и удалить текст в круглых скобках
С клавиатуры вводится строка . Разработать программу , которая реализует указанные действия . а )...

Подсчитать сколько слов HELLO среди введенных слов в строке
Пользователь вводит строки, пока не введёт слово &quot;exit&quot;. Программа подсчитывает количество слов...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.