Pregunta del programa VB: ingrese dos números enteros positivos M y N, encuentre su mínimo común múltiplo

Función privada GetMinNum(m como entero, n como entero) como entero

Dim tm como entero, tn como entero, t como entero

tm = m

tn = n

Si tm <= 0 O tn <= 0 Entonces

GetMinNum = -1

Salir de la Función

Fin Si

si tm < tn Entonces

t = tn

tn = tm

tm = t

Fin Si

t = tm Mod tn

Mientras t

tm = tn

tn = t

t = tm Mod tn

Wend

GetMinNum = m * n / tm

Función final

Privado Sub Command1_Click()

Dim m como entero

Dim n como entero

Dim min como entero

m = Int(InputBox( "Ingrese un número entero positivo m"))

n = Int(InputBox("Ingrese un número entero positivo n"))

min = GetMinNum(m, n)

Si min > 0 Entonces

MsgBox "El mínimo común múltiplo de 2 números es:" & min

De lo contrario

MsgBox "El valor ingresado El número entero no cumple con los requisitos "

End If

End Sub