Question

How to calculate generic root of a number in VB.NET

Answer 1

Imports System
Imports Microsoft.VisualBasic

Public Class Program
	Public Shared Sub Main()
        Dim remainder As Long, num As Long = 12345, sum As Long = 0

        While num > 10
            sum = 0
            Console.Write("sum digits of {0} = ", num)

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

            Console.Write("{0}" & vbLf, sum)

            If sum > 10 Then
                num = sum
            Else
                Exit While
            End If
        End While

        Console.Write("generic root = {0}", sum)
    End Sub
End Class
	
	
	
	
' run:
'
' sum digits of 12345 = 15
' sum digits of 15 = 6
' generic root = 6
'
	

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
	Public Shared Sub Main()
        Dim num As Long = 12345
		
        Dim generic_root As Long = 1 + ((num - 1) Mod 9)
		
        Console.Write("generic root = {0}", generic_root)
    End Sub
End Class
	
	
	
	
' run:
'
' generic root = 6
'

 

70+ SQL courses for beginners and professionals