Question

How to find the smallest number that is evenly divisible by all of the numbers from 1 to 20 in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Function FindLMC(ByVal a As Integer, ByVal b As Integer) As Integer
        Dim lmc As Integer = If((a > b), a, b)

        While True
            If lmc Mod a = 0 AndAlso lmc Mod b = 0 Then
				Exit While
            End If

            lmc += 1
        End While
			
		return lmc
			
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim result As Integer = 1

        For i As Integer = 1 To 20
            result = FindLMC(result, i)
        Next

        Console.Write(result)
    End Sub
End Class



' run:
'
' 232792560
'

 

70+ SQL courses for beginners and professionals