Удалить из строки все слова с четным количеством символов - VB

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

Здравствуйте. Помогите написать программу в VB 6.0 Надо очень сдать долг со 2-го курса, сам уже на 5-ом курсе и уже всё забыл Задание: Дана строка S. Удалить из строки все слова с четным количеством символов.

Решение задачи: «Удалить из строки все слова с четным количеством символов»

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

                            Option Explicit
Private Sub Комманда1_Click()
Dim S As String
Dim MAS() As String
Dim I
S = Текст1.Text
'если строка состоит из слов разделённых пробелами)
MAS = Split(S, " ")
S = ""
For I = 0 To UBound(MAS) - 1
If Len(MAS(I)) Mod 2 <> 0 Then S = IIf(S = "", MAS(I), S & " " & MAS(I))
Next I
Текст2.Text = S 
End Sub
                        

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

9 голосов , оценка 4.222 из 5

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