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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 4.333 из 5
Похожие ответы