Red de conocimiento informático - Problemas con los teléfonos móviles - 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.

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

Fin del subtítulo