Не могу найти ошибку в коде проверки что число начинается и заканчивается одной цифрой - 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