Задание: Дана строка символом. Заменить во всех словах первую букву заглавной.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
Private Sub Command2_Click()
Dim S As String
Dim i As Integer
S = " " & TextBox1.Text 'специально добавляем пробел в начало строки,
'для работы алгоритма
For i = 2 To Len(S)
If (Mid(S, i - 1, 1) = " ") Then 'если символ из строки S стоящий на позиции i-1 = пробел
S = Left(S, i - 1) & UCase(Mid(S, i, 1)) & Right(S, Len(S) - i) 'то мы берем часть символом слева от iго,
' сам iый символ делаем заглавным и приписываем все что справа
End If
Next i
Text2.Text = Mid(S, 2) ' И записываем ответ без первого пробела, который мы прибавили в начале
End Sub