Определить длину строки и написать каждое слово с большой буквы - VB

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

Народ, помогите кто с чем сможет 1. (Строки) Дана строка символов. Определить её длину и написать каждое слово с большой буквы.

Решение задачи: «Определить длину строки и написать каждое слово с большой буквы»

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

                            Private Sub Command1_Click()
Dim I As Integer, S As String, a() As String
S = InputBox("", , "Г„Г*Г*Г* Г±ГІГ°Г®ГЄГ* Г±ГЁГ¬ГўГ®Г«Г®Гў. ГЋГЇГ°ГҐГ¤ГҐГ«ГЁГІГј ГҐВё Г¤Г«ГЁГ*Гі ГЁ Г*Г*ГЇГЁГ±Г*ГІГј ГЄГ*Г¦Г¤Г®ГҐ Г±Г«Г®ГўГ® Г± ГЎГ®Г«ГјГёГ®Г© ГЎГіГЄГўГ».")
a = Split(S)
For I = 0 To UBound(a)
  a(I) = StrConv(a(I), 3)
Next I
MsgBox "Г„Г«ГЁГ*Г* Г±ГІГ°Г®ГЄГЁ =" & Len(S) & vbCrLf & Join(a), , S
End Sub
                        

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

7 голосов , оценка 4.714 из 5

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