Натуральные числа - Visual Basic .NET - Ответ 1124632

        Dim n As Integer : Dim a As String : Dim kolichestvo As Integer
        Dim symma As Integer = 0
        ' создали нужные нам переменные
        n = Val(TextBox1.Text) ' превращает строку из TextBox1 в число
        a = Trim(TextBox1.Text) ' убираем лишние пробелы и записываем в переменную а в виде строки
        If IsNumeric(n) = True And n >= 100 Then
            Label2.Text = "введено число"
        Else
            Label2.Text = "введенные вимволы не являются цифрами или не удовлетворяют условию"
        End If
        kolichestvo = Len(a) ' возвращает количество букв (в нашем случае цифр) в строке
        Label3.Text = kolichestvo 'пишем количество в Label3
        For i = 1 To kolichestvo Step 1
            If i = 1 Then
                symma = Val(Microsoft.VisualBasic.Left(a, 1)) ' берём первую букву строки и превращаем её в цифру, записавыем в symma
            Else
 
                symma = symma + Val(Microsoft.VisualBasic.Left(a, i)) ' берём i-тую букву строки и превращаем её в цифру, суммируем с прошлым результатом, записавыем в symma
            End If
        Next
        Label6.Text = symma ' сумма цифр в числе
        Label4.Text = Microsoft.VisualBasic.Left(a, 1) ' первая цифра в числе, просто как бы отрезаем её с строки...
        Label5.Text = Microsoft.VisualBasic.Right(a, 1) ' последняя цифра в числе
    End Sub