Función SumDigits Aprende programación con ejercicios Visual Basic (VB.net)

Lección:

Funciones

Ejercicio:

Función SumDigits 42


Objetivo:

Cree una función SumDigits que reciba un número y devuelva los resultados en la suma de sus dígitos. Por ejemplo, si el número es 123, la suma sería 6.

Console.Write( SumDigits(123) );
6


Código:

Imports System
Public Class exercise113
    Public Shared Function SumDigits(ByVal n As Integer) As Integer
        Dim number As String = Convert.ToString(n)
        Dim sum As Integer = 0

        For i As Integer = 0 To number.Length - 1
            sum += Convert.ToInt32(number.Substring(i, 1))
        Next

        Return sum
    End Function

    Public Shared Sub Main()
        Console.WriteLine(SumDigits(123))
    End Sub
End Class