Найти количество слов, которые содержат хотя бы одну букву «А» - 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 & " слов содержащих букву А"