Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы. - VB
Формулировка задачи:
Дано предложение.
Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы.
Решение задачи: «Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы.»
textual
Листинг программы
Dim txt As String, txt2 As String, arr
txt = InputBox("text")
arr = Split(txt, " ")
For i = 1 To UBound(arr) Step 2
Mid(arr(i), 1, 1) = UCase(Mid(arr(i), 1, 1))
Next i
For i = 0 To UBound(arr)
txt2 = txt2 & arr(i) & " "
Next i
MsgBox txt & vbCrLf & txt2