clear
accept "请输入一个字符串（字符串只包含字母和*号）：" to zf
input "请输入字符串尾部*号个数：" to n
l=len(zf)
s=0
for i=l to 1 step -1
  k=substr(zf,i,1)
  if k="*"
    s=s+1
   else
    exit
  endif
endfor
if s>n
  zf1=left(zf,(l-(s-n)))
 else
  zf1=zf
endif
?"字符串应为：",zf1



应该是这样编吧，但运行出来不对怎么回事啊？？

应该只对输入字符串后面连续的*号做处理，中间和前面的不做处理。程序应该没问题。

恩，明白了只需要把accept改成input就行了。。。

你觉得这个算法没有漏洞了？

for i=l to 1 step -1
   if substr(zf,i,1)#"*"
     exit
   endif
 endfor
 if l-i>n
   zf1=left(zf,i)
 else
   zf1=zf
 endif
 

漏洞？？