Найти количество слов, которые содержат хотя бы одну букву «А» - 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 & " слов содержащих букву А"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
