Question

Необходимо реализовать в vb.net Дано натуральное число. Верно ли, что оно начинается и заканчивается одной и той же цифрой. Либо,кто шарит, не могу найти ошибку, выдает правильно только однозначность и какое бы число не ввела - неодинаково. Dim n, a, b As Single n = Val(TextBox1.Text) a = n If n < 10 Then TextBox2.Text = "Число однозначное" Else Do n = b Mod 10 a = a / 10 Loop Until a <= 10 If n = b Then TextBox2.Text = "верно" If b <> a Then TextBox2.Text = "неодинаково" End If End Sub

Answer 1

n = b Mod 10   меняете на  b = n  Mod  10
a = a / 10  меняете на  a = a  \ 10
Loop Until a <= 10   меняете на  Loop Until a < 10
If n = b Then TextBox2.Text = "верно"  меняете на  If a = b Then TextBox2.Text = "верно"

Answer 2

        Dim n, a, b As Single
        n = Val(TextBox1.Text)
        a = n
        If n < 10 Then
            TextBox2.Text = "Число однозначное"
        Else
            b = n Mod 10
            Do
                a = a \ 10
            Loop Until a < 10
            If a = b Then
                TextBox2.Text = "верно"
            Else
                TextBox2.Text = "неодинаково"
            End If
        End If

Answer 3

Ниже представлен пример кода на VB.NET, который проверяет, верно ли, что натуральное число начинается и заканчивается одной и той же цифрой:

Private Sub CheckNumber()
    Dim n, a, b As Integer
    n = Val(TextBox1.Text)
    a = n
    
    If n < 10 Then
        TextBox2.Text = "Число однозначное"
    Else
        Do
            b = n Mod 10
            a = a \ 10
        Loop Until a <= 10
        
        If n Mod 10 = b Then
            TextBox2.Text = "Верно"
        Else
            TextBox2.Text = "Неодинаково"
        End If
    End If
End Sub

Этот код считывает число из `TextBox1`, преобразует его в целое число и сохраняет в переменную `n`. Затем число сохраняется в переменную `a`. Если число `n` меньше 10, то выводится сообщение "Число однозначное".

В противном случае, в цикле `Do` число `n` делится на 10 (`Mod 10`), чтобы получить последнюю цифру числа, и число `a` делится на 10 (`\ 10`), чтобы удалить последнюю цифру числа. Цикл продолжается, пока число `a` не станет меньше или равно 10.

После выхода из цикла проверяется, равны ли последняя цифра числа `n` (`n Mod 10`) и переменная `b`. Если они равны, то выводится сообщение "Верно". В противном случае выводится сообщение "Неодинаково".

Вы можете вызвать эту процедуру по кнопке или в любом другом удобном месте в вашем коде.