二級VFP中：先將在字符串s中的字符按正序存放到t串中，然後把s中的字符按逆序連接到t串的後面。

SET TALK OFF

CLEAR

***************************SPACE*****************************

acce "請輸入壹個串：" to ss

T=""

FOR I=1 TO LEN(SS)

T=T+SUBS(SS,I,1)

ENDF

*************************SPACE*******************************

FOR J=len(ss) TO 1 STEP -1

*************************SPACE*******************************

T=T+SUBS(SS,j,1)

ENDF

SET TALK ON

CANC

這道題是想用鍵盤輸入的字符串生成壹個 由輸入的串加這個串的倒序組成的新字符串，在實際編程中不用這麽麻煩，這樣做就好了：

SET TALK OFF

CLEAR

acce "請輸入壹個串：" to ss

T=""

FOR J=len(ss) TO 1 STEP -1

T=T+SUBS(SS,j,1)

ENDF

T=ss+T

SET TALK ON

CANC