Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы. - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д