Определить количество слов в строке, длина которых больше чем 3 символа - VB

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

Составить программу которая определяет количество слов в строке, длина которых больше чем 3 символа

Решение задачи: «Определить количество слов в строке, длина которых больше чем 3 символа»

textual
                            Листинг программы 
                        

                            Function CalcWords(Txt as string) As Integer
   W=Split(Txt," ")
   c%=0
   for i%=0 to Ubound(W,1)
       if len(W(i%))>3 then c%=c%+1
   next i%
   CalcWords=c%
End function
                        

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

10 голосов , оценка 4 из 5

Похожие ответы