¿Cómo convertir un decimal en la fracción más simple usando programación VB?
Pegue el código siguiente, ejecútelo e intente ingresar valores diferentes pero obtenga el resultado que desea.
Subcomando privado 1_Click()
"GYS como entero" define el divisor común.
Dim XSW1 es un número entero
Marcar XSW2 como un número entero
XSW1 = )
Si xsw 1 gt;
texto 1 = val(texto 1)* 10 ^ xsw 1
texto 2 = val(texto 2)* 10 ^ xsw 1
Otros p>
p>
texto 1 = val(texto 1)* 10 ^ xs w2
Texto2 = Val(Text2) * 10 ^ XSW2
Terminará if...
Gys = mcd (val (texto1.text), val (texto2.text))' Divide dos números por el máximo común divisor al mismo tiempo.
Texto1 = Val(Texto1)/GYS
Texto2 = Val(Texto2)/GYS
Texto3 = Texto1 & "/" & texto 2
Conector final
Función privada mcd (x asinteger, y asinteger) asinteger 'Encuentra el máximo común divisor de dos números.
Etiqueta r como un número entero
Hasta y = 0
r = x Mod y
x = y
y = r
Anillo
GCD = x
Función final
Función XSW (dd es una cadena)'buscar decimal Poco.
XSW = 0
Para i = 1 a Len(dd)
Si Mid(dd,I,1) = "" entonces
XSW = Lun(dd) - i
Terminará si...
Entonces
Finalizar función