Mínimo Común Múltiplo (MCM)

El mínimo común múltiplo (abreviado m.c.m), de dos o más números naturales es el menor número natural que es múltiplo de todos ellos. Sólo se aplica con números naturales, es decir, no se usan decimales, números negativos o números complejos.

En este proyecto nos permite hacer una serie de operaciones como divisiones, multiplicaciones para poder sacer el mínimo común múltiplo de una serie de números que el usuario podrá ingresar para efectuar una serie de operaciones para luego sacar el resultado correcto.

Declaramos las variables que utilizaremos

        Dim i As Integer

        Dim num(0 To 2) As Integer

        Dim mcm As Integer

        Dim res As Integer

        Dim num2 As Integer

        Dim validador As Boolean

        Aquí se registran los números ingresados anterior mente

        num(0) = Val(TextBox1.Text)

        num(1) = Val(TextBox2.Text)

        num(2) = Val(TextBox3.Text)

        Condición de los números que insertaremos para que saca el mínimo común múltiplo

        If num(0) = 0 Or num(1) = 0 Or num(2) = 0 Then

            Print("el MCM es 0 (cero)") 'Se imprime sino cumple la condición

            Exit Sub

        End If

        mcm = 1

        num2 = 2

        Este código hace la ordenación de los números para compararlos ya luego validarlos.

        While (num(0) <> 1 Or num(1) <> 1 Or num(2) <> 1)

            validador = False

            ' Un siglo para generar el mínimo común múltiplo

            For i = 0 To 2

                res = num(i) Mod num2

                If (res = 0) Then

                    num(i) = num(i) / num2

                    validador = True

                End If

            Next

Si los números son válidos hace la multiplicación y suma el resultado del mínimo común múltiplo para sacar el resultado

            If validador = True Then

                mcm = mcm * num2

            Else

                num2 = num2 + 1

            End If

        End While

 Al terminar de hacer las condiciones de los números los hace con los otros números

        'otra vez para tener el resultado final sería el mínimo común múltiplo

        TextBox4.Text = (mcm) ' Para imprimir el resultado final

Código para limpiar los texbox del formulario

Me.TextBox1.Clear()

        Me.TextBox2.Clear()

        Me.TextBox3.Clear()

        Me.TextBox4.Clear()

        Me.TextBox1.Focus() 

Click en la imagen para descargar el proyecto: