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