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")) p>
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