Red de conocimiento informático - Aprendizaje de código fuente - Programación en Vb del mínimo común múltiplo

Programación en Vb del mínimo común múltiplo

La función GYS (lNum1 tiene la misma longitud, lNum2 tiene la misma longitud) tiene la misma longitud

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