Question

How to calculate the HCF (Highest Common Factor) of two integers in VB.NET

Answer 1

Imports System
 
Public Class Program
    Public Shared Function HFC(ByVal divided As Integer, ByVal divisor As Integer) As Integer
        Dim remainder As Integer, hcf As Integer = 0
 
        Do
            remainder = divided Mod divisor
 
            If remainder = 0 Then
                hcf = divisor
            Else
                divided = divisor
                divisor = remainder
            End If
        Loop While remainder <> 0
 
        Return hcf
    End Function
 
    Public Shared Sub Main()
        Dim divided As Integer = 18, divisor As Integer = 27
             
        Console.Write("HCF = " & HFC(divided, divisor))
    End Sub
End Class
     
 
     
     
' run:
'
' HCF = 9
'   

 

70+ SQL courses for beginners and professionals