test_dowhile.prg

刚才那个的补充

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