Programación tacaña
¿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