clea
?'正序输出'
for i=1 to 100
??i
if right(allt(str(i)),1)='1'
?
endif
ENDFOR
?'反序输厅散出'知枯
?
for i=100 to 1 STEP -1
??i
if i/10=INT(i/10) AND i#100
?
endif
endfor
accept '尘竖accept str:'镇兄稿 to xy='御孝'
FOR i=1 TO LENC(x)
y=SUBSTRc(x,i,1)+y
ENDFOR
?x
?y
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)