Написать программу, которая определяет, является ли введенное слово палиндромом. Выдать...

Question

Написать программу, которая определяет, является ли введенное слово палиндромом. Выдать сообщeние в MsgBox. вывести проверяемое слово в двух вариантах.
Visual Basic.

Answer 1

Sub Z1()
Dim x, y As String
x = InputBox("Введите слово: ")
For i = Len(x) To 1 Step -1
   y = y + Mid(x, i, 1)
Next i
MsgBox ("Перевернутое слово: " + y)
If x = y Then
    MsgBox ("Это палиндром")
    Else: MsgBox ("Это не палиндром")
    End If
End Sub

Comments

Так?