Ejemplo de formulario de programación Vfp, por favor responda.

Texto1 es la expresión de entrada y TEXT2 es el resultado de salida. El código del botón es el siguiente:

cOriginal=ALLTRIM(thisform.text1.Value)

n=LEN(cOriginal)

cFinal=""

FOR i=n TO 1 STEP -1

cFinal=cFinal SUBSTR(cOriginal, i, 1)

ENDFOR

este formulario .text2.Value =cFinal

este formulario.text2.Refresh