Dim i As lnteger, L As Integer

Word = txtWord.Text 'Введенное слово

L = Len(Word) 'Длина введенного слова

Drow = '''' 'Создаваемое слово — отражение

For i = L То 1 Step -1

с = Mid(Word, i, 1) 'Выделенный символ

Drow = Drow + с

Next i

txtDrow. Text = Drow

End Sub

7. Сохраните проект под именем Лр15_Зад3_ Перевертыш

ЗАВДАННЯ 15.4. Постановка задачи: НАПИСАТЬ ПРОГРАММУ, ОПРЕДЕЛЯЮЩУЮ, ЯВЛЯЕТСЯ ЛИ ПАЛИНДРОМОМ НЕКОТОРАЯ ВВЕДЕННАЯ ФРАЗА. ПАЛИНДРОМОМ НАЗЫВАЕТСЯ СЛОВО, ФРАЗА, А ТАКЖЕ ЦЕПОЧКА СИМВОЛОВ, КОТОРЫЕ ЧИТАЮТСЯ ОДИНАКОВО СЛЕВА НАПРАВО И СПРАВА НАЛЕВО. Вид работающего приложения после щелчка по кнопке < Нажми > представлен на рис. 15.8.

Рис. 15.8