La programación VB requiere ingresar dos números y encontrar su máximo común divisor y mínimo común múltiplo.

Función GYS(lNum1 Mientras, lNum2 Mientras) Mientras

Atenuar i Mientras

Para i = lNum1 a 1 Paso -1

Si lNum1 Mod i = 0 y lNum2 Mod i = 0 entonces

GYS = i

Salir para

Finalizar si

Siguiente

Función final

Función GBS(lNum1 mientras, lNum2 mientras) mientras

Hacer mientras i = False

s = s 1

i = s Mod lNum1 = 0 And s Mod lNum2 = 0

Bucle

GBS = s

Función final

Subcomando privado1_Click()

Dim m As Long, n As Long

m = Val(InputBox("Input m"))

n = Val(InputBox("Ingrese n"))

Imprimir "Los dos números ingresados ​​son "amp; m amp;" y "n

Imprimir "Su máximo común divisor es";

Si m gt n Entonces

Imprimir GYS(m, n)

Si no

Imprimir GYS(n, m)

Finalizar si

Imprimir "Su mínimo común múltiplo es";

Imprimir GBS(m, n)

Fin del subtítulo