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