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