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

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

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

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
a = Text1
b = Val(Text1)
k = Len(a)
If k < 2 Then
Label3.Caption = "Г„ГЂ"
Else
If k = 2 And (b Mod 10 = Round(b / 10)) Then
Label3.Caption = "Г„ГЂ"
Else
If k = 3 And (b Mod 10 = b \ 100) Then
Label3.Caption = "Г„ГЂ"
Else
 
If k = 4 And (b Mod 10 = b \ 1000) And ((b Mod 100) \ 10 = b \ 100 Mod 10) Then Label3.Caption = "Г„ГЂ" Else Label3.Caption = "ГЌГ…Г’"
End If
End If
End If
End Sub

А забыл использовать циклические алгоритмы. я так понимаю тут цикл 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы