VB: Ingrese dos números en el teclado y encuentre el máximo común divisor y el mínimo común múltiplo de los dos números.

Subcomando privado1_Click()

Atenuar a mientras, b mientras, i mientras, j mientras, máximo mientras, mínimo mientras

a = Val(InputBox("Ingrese el primer número", "Primer número", "1"))

b = Val(InputBox("Ingrese el segundo número", "El segundo número" , "1"))

Min = 1

Hacer mientras 1

Si (Min Mod a = 0 y Min Mod b = 0) Entonces salga de Do

Min = Min 1

Bucle

Max = IIf(a gt; b, b, a)

Hacer mientras Max gt ; 0

Si (a Mod Max = 0 y b Mod Max = 0) Entonces salga Do

Max = Max - 1

Bucle

MsgBox a & Fin Sub