Algoritmia - problema

'si te sirve de algo esto visita mi pagina

Private Function mcd(a, b) As Variant

On Error Resume Next

     If Abs(a) < Abs(b) Then

            temp = a

            a = b

            b = temp

     End If

        Do While (b <> 0)

            q = a \ b

            r = a - (b * q)

            a = b

            b = r

        Loop

    mcd = a

End Function

'toma esa función calcula el maximo comun divisor de fos numeros si lo quieres '

'combertir a minimo comun multiplo , multiplicas los dos numeros y lo divides sin '

'resto entre el maximo comun divisor, por si no lo captas es asi

Private Sub Command1_Click()

me.caption =  ((Val(Text1.Text) * Val(Text2.Text)) / mcd(Val(Text1.Text), Val(Text2.Text)))

end sub

' esto lo puedes probar haciendo un formularion en visual basic, colocando dos '

'cajas de texto text1 y text2 y un boton command1