Определить, является ли число палиндромом - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д