请大家帮帮忙！谢谢！
编写程序：显示出能被3整除且至少有一位是5的所有三位数？

判定条件是：mod(n,3)=0 .and.(left(str(n,3),1)='5' .or. right(str(n,3),1)='5' .or.substr(str(n,3),2,1)='5')

我编写的程序如下：不知哪里出了问题，运行不正常，请指点一下我，谢谢！
set talk off
clear
for x=100 to 999
a2=str(x,3)
a=left(a2,1)
a1=val(a)
b2=str(x,3)
b=subs(b2,2,1)
b1=val(B)
c2=str(x,3)
c=right(c2,1)
c1=val(c)
if int(x/3)=x/3.and.c1=5 .or.b1=5 .or.a1=5
?
else
?"无符合条件的内容"
endif
next
return

if int(x/3)=x/3.and.(c1=5 .or.b1=5 .or.a1=5)

运行还是不正常，不知道问题出在哪里，是不是输出？的问题，还是do while的问题，运行时老是大量快速输出无符合条件的内容，好像是死循环，无法停止，只有按Ese键，才能终止！

for.....endfor
好象你的少了个endfor

我用了next代替

我试过了,循环无问题.到999结束了

for i=100 to 999
a=str(i,3)
a1=substr(a,1,1)
a2=substr(a,2,1)
a3=substr(a,3,1)
if mod(i,3)=0 and (a1="5" or a2="5" or a3="5")
?i
endif
endfor

To:jin307119903
你的程序就多了如下两条语句
else
?"无符合条件的内容"