by Sachin Tiwari (3 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 2nd February 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Calculate hcf of any 2 numbers
API Declarations
dim b as single
b = Text2.Text
If a >= b Then
For i = 1 To b
If a Mod i = 0 And b Mod i = 0 Then
c = i
End If
Next i
Print c
End If
If b >= a Then
For i = 1 To a
If a Mod i = 0 And b Mod i = 0 Then
c = i
End If
Next i
Print c
End If
End Sub