• Home
 · 
• Math/Dates
 · 
• Calculate hcf of any 2 numbers

Calculate hcf of any 2 numbers

Calculate hcf of any 2 numbers

API Declarations


dim b as single



Rate Calculate hcf of any 2 numbers

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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