Не могу найти ошибку в коде проверки что число начинается и заканчивается одной цифрой - Visual Basic .NET

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

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

Выдает правильно однознаность, но при любом числе выдает "неодинаково". Задача такова : Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой.

Решение задачи: «Не могу найти ошибку в коде проверки что число начинается и заканчивается одной цифрой»

textual
Листинг программы
        Dim n, a, b As Long
        n = Val(TextBox1.Text)
        If n < 10 Then
            TextBox2.Text = "Число однозначное"
        Else
            a = n mod 10
            Do
                b = n Mod 10
                n = n \ 10
            Loop while n>0
            If a = b Then TextBox2.Text = "верно"
            If b <> a Then TextBox2.Text = "неодинаково"
 
        End If
        End Sub

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

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