input "请输入字符串;" to p1 t="" for i= 1 to len (p1) c=substr(p1,i,1) t=t+c
endfor
input "请输入字符串;" to p2
for i= 1 to len (p2) c=substr(p2,i,1) t=t+c
endfor
? t
input "请输入字符串;" to p1
t=""
i=0
do while .T. i=i+1 c=substr(p1,i,1) if c=="" exit endif t=t+c
endfor
input "请输入字符串;" to p2
i=0
do while .T. i=i+1 c=substr(p2,i,1) if c=="" exit endif t=t+c
endfor
? t