Dígitos en un número Curso de Programación Visual Basic

Lección:

Control del Flujo


Ejercicio:

Dígitos en un número 11


Objetivo:

Cree un programa en Visual Basic para calcular cuántos dígitos tiene un entero positivo (pista: se puede hacer dividiendo por 10 varias veces). Si el usuario introduce un entero negativo, el programa debe mostrar un mensaje de advertencia y proceder con el número positivo equivalente.

Por ejemplo:
Número = 32
2 dígitos
Número = -4000
(Advertencia: es un número negativo) 4 dígitos


Código:

Imports System
Public Class exercise38
    Public Shared Sub Main()
        Dim number As Integer
        Dim digit As Integer = 0
        Console.Write("Number? ")
        number = Convert.ToInt32(Console.ReadLine())

        If number < 0 Then
            Console.WriteLine("(Warning: it is a negative number)")
            number = -number
        End If

        While number > 0
            number = number / 10
            digit += 1
        End While

        If digit = 0 Then digit = 1
        Console.WriteLine("{0} digits", digit)
    End Sub
End Class