Programación en Vb del mínimo común múltiplo
dim i tiene la misma longitud
para i = lNum1 a 1 paso-1
si lNum1 Mod i = 0 y lNum2 Mod i = 0, entonces
GYS =I
Salir para...
It terminará si...
Entonces
Finalizar función
La función GBS (lNum1 tiene la misma longitud, lNum2 tiene la misma longitud) tiene la misma longitud
Hacer mientras i = False
s = s 1
i = s Mod lNum1 = 0, s Mod lNum2 = 0
Anillo
GBS = s
Finalizar función
Subcomando privado 1_Click()
Dim m tiene la misma longitud, n es la misma longitud
M = Val(InputBox ("input m "))
N = Val(InputBox ("input n "))
Imprimir "Los dos los números ingresados son"; m amp "he"; n
print "su máximo común divisor es";
si m gt entonces
print GYS(México )
otro
imprimir GYS (Noruega)
Terminará si...
Imprimir "Su mínimo común múltiplo es" ;
Impresión GBS (México)
Conector final