clear
s=0
for i=1 to 100
if mod(i,3)==0 or mod(i,5)==0
s=s+1
endif
endfor
"1到100之内能被3或5整除的数字个数为:"+alltrim(str(s))+"个."