Question

How to sum the digits of a number in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function sumDigits(ByVal num As Long) As Integer
        Dim sum As Integer = 0

        While num <> 0
            sum = sum + num Mod 10
			num = num \ 10 ' \ not /
        End While

        Return sum
    End Function

    Public Shared Sub Main()
        Dim n As Long = 59017
		
        Console.Write(sumDigits(n))
    End Sub
End Class




' run:
'
' 22
'

 

70+ SQL courses for beginners and professionals