Question

How to calculate the LCM (Least Common Multiple) of two numbers in VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Function getLMC(a As Integer, b As Integer) As Integer
		Dim lmc As Integer = If((a > b), a, b) 
         
		Do While(true) 
			If (lmc Mod a = 0 And lmc Mod b = 0) Then 
                return lmc
			End If
            lmc += 1
		Loop
		return -1
	End Function
	
	Public Sub Main()
		Dim a As Integer = 12
		Dim b As Integer = 20
		Console.Write("The LCM (Least Common Multiple) of {0} and {1} is: {2}", a, b, getLMC(a, b))
	End Sub
End Module
	
	

' run:
'
' The LCM (Least Common Multiple) of 12 and 20 is: 60
'
	

 

70+ SQL courses for beginners and professionals