vb Ingrese dos números myn y satisfaga mgt;n, encuentre el máximo común divisor y el mínimo común múltiplo de myn, y el valor de la combinación c(m, n).

Privado?Sub?Command1_Click() Dim?m?As?Integer,?n?As?Integer m?=?Text1 n?=?Text2 Imprimir?"Mayor común divisor=";?gcd(m,?n) Imprimir? "Mínimo común múltiplo=";?lcm(m,?n) Imprimir?"Número de combinación C("?amp;?m?amp;?", "?amp;?n?amp;?")=";? c (m, ?n)

End?Sub

Función?gcd(ByVal?m, ?ByVal?n) Do

r?=?m ?Mod?n

m?=?n

n?=?r Bucle?While?r?lt;gt;?0 gcd?=?m

Fin?Función

Función?c(ByVal?m,?ByVal?n) y?=?1 For?i?=?1?To?n

y? = ?y?*?m?/?i

m?=?m?1 ¿Siguiente?i c?=?y

Fin?Función<

¿Fin?