Определить, является ли введенная строка полиндромом - VBA

Узнай цену своей работы

Формулировка задачи:

Определить, является ли введенная строка полиндромом (слово, читающееся одинаково слева направо и справа налево).

Решение задачи: «Определить, является ли введенная строка полиндромом»

textual
Листинг программы
Sub DariaVB()
    Dim pali$    ' объявлена текстовая переменная
    pali = LCase(InputBox("Введите текст: ", , "Анна"))    ' переменной с клавиатуры вводится значение
    MsgBox (IIf(pali = StrReverse(pali), "Палиндром!", "Не палиндром!"))
    ' StrReverse(string) - возвращает "отражение" заданной строки;
    ' функция IIf проверяет выполнимость условия, в данном случае "pali = StrReverse(pali)" _
      и выводит одно из двух значений (в кач-ве значений у нас "Палиндром!" и "Не палиндром!");
    ' Наконец, MsgBox - вывод сообщения
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.556 из 5
Похожие ответы