Red de conocimiento informático - Material del sitio web - ¿Cómo convertir un decimal en la fracción más simple usando programación VB?

¿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