Найти количество слов, которые содержат хотя бы одну букву «А» - VB

Узнай цену своей работы

Формулировка задачи:

Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество слов, которые содержат хотя бы одну букву «А».(Visual Basic) не могу написать код программы, помогите пожалуйста))

Решение задачи: «Найти количество слов, которые содержат хотя бы одну букву «А»»

textual
Листинг программы
Dim s
'хотя от двойных пробелов можно было и не очищать
do
    st=replace(st,"  "," ")
loop while instr(1,st,"  ")
'------------------------------------------------
s=split(st)
k=0
for i = lbound(s) to ubound(s)
    if instr(1,s(i),"А") >0 then k = k +1 
next
msgbox k & " слов содержащих букву А"

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы