Порядок действий. 1. Расположите на форме текстовое поле, метку и кнопку

1. Расположите на форме текстовое поле, метку и кнопку.

2. Установите значение свойство Name для текстового поля — txtФраза.

3. Установите значение свойство Name для командной кнопки — cmdПуск.

4. Установите значение свойства Caption для меток и формы в соответствии с рис. 15.8.

5. 3начения свойств объектов, определяющих внешний вид приложения, установите по своему усмотрению.

6. IIроанализируйте представленный ниже программный код, а затем наберите его.

Private Sub сmdПуск_Сliсk()

Dim f As String

Dim L As Integer, Lh As Integer, k As Integer, i As Integer

f = txtФраза.Text 'Введенная фраза

L = Len(f) 'Длина введенной фразы

Select Case L

Case 1

MsgBox "Фраза не палиндром", vbOKOnly, "Проверка фразы"

Case Else

Lh = Int(L / 2)

k = 0 'k=0 —признак палиндрома

For i = 1 To Lh

If Mid(f, L - i + 1, 1) <> Mid(f, i, 1) Then k = 1: Exit For 'k=1 —слово не ‘палиндром

Next i

End Select

If k = 1 Then

MsgBox "Фраза - не палиндром", vbOKOnly, "Проверка фразы"

Else

MsgBox "Фраза - палиндром", vbOKOnly, "Проверка фразы"

End If

End Sub

7. Сохраните проект под именем Лр15_Зад4_Палиндром