by C .R.RAJAGOPAL STAR TECHNOLOGIES (2 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 29th June 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about TO FIND THE HIGHEST COMMON FACTOR (HCF) AND LEAST COMMON MULTIPLE (LCM) OF TWO GIVEN NUMBERS. Why not be the first to post a comment about TO FIND THE HIGHEST COMMON FACTOR (HCF) AND LEAST COMMON MULTIPLE (LCM) OF TWO GIVEN NUMBERS.