• Home
 · 
• Math/Dates
 · 
• TO FIND THE HIGHEST COMMON FACTOR (HCF) AND LEAST COMMON MULTIPLE (LCM) OF TWO GIVEN NUMBERS

TO FIND THE HIGHEST COMMON FACTOR (HCF) AND LEAST COMMON MULTIPLE (LCM) OF TWO GIVEN NUMBERS

TO FIND THE HIGHEST COMMON FACTOR (HCF) AND LEAST COMMON MULTIPLE (LCM) OF TWO GIVEN NUMBERS

API Declarations


Dim B, S As Integer
'AUTHOR C.R.RAJAGOPAL
'STAR TECHNOLOGIES
'EMAIL :CRRZUNICA @ YAHOO.COM
'IN A FORM PLACE FOUR TEXT BOXES TEXT1,TEXT2,TEXT3,TEXT4
'PLACE 4 LABELS LABEL1,LABEL2,LABEL3,LABEL4
'CAPTIONS OF THE 4 LABELS ARE FIRST NUMBER,SECOND NUMBER,HCF AND LCM RESPECTIVELY
'PLACE 3 COMMAND BUTTONS WITH NAMES CMDANSWER,CMDCLEAR,CMDQUIT
'CAPTIONS OF THE 3 COMMAND BUTTONS ARE ANSWER,CLEAR AND QUIT
'THE PURPOSE IS TO FIND THE HCF AND LCM OF THE TWO NUMBERS ENTERED
' THE INPUT IS MADE THROUGH FIRST TWO TEXT BOXES
'THE HCF IS DISPLAYED IN THIRD TEXT BOX
' THE LCM IS DISPLAYED IN FOURTH TEXT BOX
'CMDCLEAR IS TO CLEAR THE TEXT BOXES FOR FRESH DATA ENTRY
'CMDANSWER TO DISPLAY THE RESULT
'CMDQUIT TO EXIT THE APPLICATION



Rate TO FIND THE HIGHEST COMMON FACTOR (HCF) AND LEAST COMMON MULTIPLE (LCM) OF TWO GIVEN NUMBERS

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

M = CInt(Text1.Text)
N = CInt(Text2.Text)
Select Case M - N

   Case Is > 0
   
   
   big = M
   small = N
   Case Is < 0
   big = N
   small = M
End Select
B = big
S = small
Q = B / S
R = Int(Q)
T = R * S
U = B - T
While U > 0
V = S / U
W = Int(V)
x = W * U
y = S - x
S = U
U = y
Wend
HCF = S
LCM = (M * N) / (HCF)
Text3.Text = HCF
Text4.Text = LCM

End Sub

Private Sub CMDCLEAR_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus

End Sub


Private Sub CMTQUIT_Click()
Unload Me
End
End Sub