¿Cómo convertir un decimal en la fracción más simple usando programación VB?

Aquí, coloque tres cuadros de texto en el formulario, use Texto1, Texto2 y Texto3 para ingresar el numerador y el denominador respectivamente, genere los resultados y luego coloque un botón de comando para controlarlos.

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>

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