Programación VBA: ingrese dos números enteros positivos m y n, y encuentre su máximo común divisor y su mínimo común múltiplo.
Aprenda del código de la versión Xialan Sub mínimo común múltiplo y máximo común divisor ()
Dim m como entero, n como entero
Dim m1 como entero , n1 como entero
Dim t como entero
m = InputBox("Ingrese un número natural m:")
n = InputBox("Ingrese un número natural m:") número n:")
m1 = m
n1 = n
Si m1 < n1 Entonces
m1 = n
n1 = m 'Intercambiar los valores de my n
End If
Do
r = m1 Mod n1
Si r = 0, entonces salga de Do
m1 = n1
n1 = r
Bucle
str1 = Máxima convención de m & "," & n & " Number=" & n1 & vbCrLf
str1 = str1 & "Mínimo común múltiplo=" & m * n / n1
MsgBox str1 p>
Fin del subtítulo