看看这段VFP程序

[复制链接]
查看11 | 回复0 | 2010-3-13 22:32:57 | 显示全部楼层 |阅读模式
嵌套错误,改为:accept "输入一个字符" to stst=alltrim(st)l=len(st)flag=.t.for i=1 to l/2if substr(st,i,1)substr(st,l+1-i,1)flag=.f.elseflag=.t.endifendforif flag=.t.?st,"是回文"else?st,"不是回文"endif这样就行了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行