Red de conocimiento informático - Conocimiento informático - Programación tacaña

Programación tacaña

Números en orden inverso:

¿Privado? ¿Sub? form_click()

¿Atenuado? ¿incógnita? ¿Como? Entero

¿Atenuado? n1? ¿Como? Entero,? n2? ¿Como? Entero,? n3? ¿Como? Entero

Irregularizar

x? =?Int(Rnd?*?900)?+?100

n1? =?x? \?100

n2? =?(x?Mod?100)?\?10

n3? =?x? Mod? 10

¿Imprimir? incógnita,? n3? *?100?+?n2? *?10?+?n1

¿Fin? Método de subcadena inversa:

¿Privado? ¿Sub? form_click()

¿Atenuado? ¿incógnita? ¿Como? Entero

¿Atenuado? n1? ¿Como? cadena,? n2? ¿Como? cadena,? n3? ¿Como? ¿Línea

Hacer irregular

x? =?Int(Rnd?*?900)?+?100

n1? =?Izquierda(x,?1)

n2? =?Medio(x,?2,?1)

n3? =? a (x,? 1)

¿Imprimir? incógnita,? Val(n3?& amp?n2?& amp?n1)

¿Fin? Sub agrega el método de inversión de función directa más simple;

¿Privado? ¿Sub? form_click()

¿Atenuado? ¿incógnita? ¿Como? Entero

Irregularizar

x? =?Int(Rnd?*?900)?+?100

¿Imprimir? incógnita,? Val(StrReverse(x))

¿Fin? Submarino