error_4.prg

来自「刚才那个的补充」· PRG 代码 · 共 10 行

******程序功能：将非汉字字符组成的字符串反序显示（例如将Microsoft显示为tfosorciM）
CLEAR
cString="Microsoft "
cResult=cString+"的反序显示为"
DO WHILE LEN(cString)>0
	cResult=RIGHT(cString,1)+cResult
	cString=SUBSTR(cString,1,LEN(cString)-1)
ENDDO
? cResult