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

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

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

Вводится положительное целое число B < 10000. Является ли оно палиндромом? Палиндром – это строка или число, которое читается как слева направо, так и справа налево? Вообщем написал программу :
А забыл использовать циклические алгоритмы. я так понимаю тут цикл Do while .. loop куда его запихнуть бы?

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

textual
Листинг программы
Private Sub Command1_Click()
    Dim s As String, k As Integer, f As Boolean
    s = Text1.Text
    f = True
    Do
         k = k + 1
         If Mid(s, k, 1) <> Mid(StrReverse(s), k, 1) Then f = False
    Loop Until k >= Len(s) \ 2
    Label3.Caption = IIf(f, "Да", "Нет")
End Sub

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


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

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

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