Сделать заглавной первую букву слова - VB

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

При вписывании любого слова должен считывать первые буквы и делать их заглавными. Так же должен учитывать количество слов и пробелов. Все на картинке надеюсь на помощь.

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

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

                            Private Sub Command1_Click()
Dim X1, X2, X3 As String
 
X2 = UBound(Split(Text1.Text)) ' Количество пробелов
Text3.Text = X2
X1 = X2 + 1 ' Количество слов
Text2.Text = X1
X3 = Strings.StrConv(Text1.Text, vbProperCase) ' Перевод в словах первых букв в заглавные
Text1.Text = X3
End Sub
 
Private Sub Command2_Click()
End
End Sub
                        

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

12 голосов , оценка 3.833 из 5

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