用VF写 求10~100内所有能被7和9中的一个且只有一个数整除的整数的个数

clear
set talk off
n=0
for i=10 to 100
if i%7=0 or i%9=0
n=n+1
endif
endfor
"10~100内能被7或9中的一个整除的整数的个数是",n
set talk on
return