Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы.

@Illu · Регистрация: 09.12.2010

Author24 — интернет-сервис помощи студентам

Дано предложение.
Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы.

@YuraAAA · 21.12.2010, 18:40

А где Ваши попытки реализации этой задачи?

@Illu · 21.12.2010, 19:40 **[ТС]**

Visual Basic

txt = InputBox("Введите текст")
l = Split(txt)
For i = 2 To UBound(l) Step 2
ntxt = UCase(l(i))
Next i

Добавлено через 31 минуту

Visual Basic

Sub slovo() 'Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы.
Cells.Clear
Dim txt As String
Dim ntxt As String
txt = InputBox("Введите текст")
l = Split(txt)
For i = 2 To UBound(l) Step 2
For j = 1 To UBound(l) Step 3
ntxt = ntxt + (l(j) + " " + UCase(l(i)) + " ")
Next j, i
Cells(1, 1) = ntxt
End Sub

мои попытки меня приводят не к тому , к чему хотелось бы

@YuraAAA · 21.12.2010, 20:26

Visual Basic

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

@Illu 0 / 0 / 0 Регистрация: 09.12.2010 Сообщений: 6
		1
	Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы. 21.12.2010, 18:33. Показов 1735. Ответов 3 Метки нет (Все метки) Дано предложение. Переписать предложение, чтобы каждое второе слово начиналось с заглавной буквы. 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	21.12.2010, 18:40	2
	А где Ваши попытки реализации этой задачи? 0

	21.12.2010, 20:26

Опции темы