请大家帮帮忙！谢谢！
编写程序：显示出能被3整除且至少有一位是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

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

我用了next代替